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I. INTRODUCTION 



A. BACKGROUND 

Annually, the effects of fires on Naval forces are 
particularly devastating. Ships may be removed from service 
for repairs which incur costs that may run into the tens of 
millions of dollars. Personnel casualties, ship down time, 
equipment repair and replacement all result in a loss of 
overall readiness of our fleets. The prevention of shipboard 
fires is of the utmost importance to today's Navy. The 
understanding of the phenomena of fire, especially in the 
enclosed spaces found aboard ship, is the first step toward 
its control and prevention. 

The study of fire propagation requires the combined 
knowledge of fluid dynamics, mass and heat transfer, and 
combustion. Research into the mechanics of fire and prediction 
of its behavior will aid engineers in reducing the probability 
of its ignition and propagation. 

There are a number of ways to conduct this research. The 
most obvious is experimental. But, fires aboard ships are very 
complex. Often they are in enclosed airtight spaces which 
allow pressures to build. These spaces may be full of 
electronic equipment, flammables or toxic substances. Their 
accessibility may be extremely limited, hampering efforts to 
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combat fires. An experiment that can accurately account for 
all these complexities becomes very expensive. 

At the Naval Research Laboratory in Washington, D.C., the 
Navy has built Fire-1, a large pressure vessel designed to 
model fires aboard submarines, or closed compartments and 
tanks found on surface ships. It allows fires to be studied 
under the unique conditions experienced in shipboard fires. 

Another method for conducting fire research is the use of 
a computer model. As computers get faster and can allow for 
large amounts of data storage, researchers are able to 
thoroughly model fire phenomena and predict future behavior 
without the continuous expensive full scale testing of Fire-1. 
Fires may be modeled by the numerical solution of the 
governing equations. These models are then verified by the 
existing data from experiments. With an accurate computer 
model, several options are available. More complex geometries 
may be incorporated for specific areas of interest. Entire 
models of ships may someday be developed to show areas of 
susceptibility in design. Effects of firefighting methods may 
be accurately predicted. The savings in running computer codes 
versus full scale testing are considerable. 

Also, now that a high speed VAXSTATION 3100 SPX/RJ19 Model 
38 workstation may be dedicated to this particular simulation, 
computing costs may be minimized. The current code requires 
approximately 1.0 hours of VAXSTATION CPU per second of fire 
time . 
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B. COMPUTER MODELING 



Field modeling uses difference forms of the conservation 
equations of mass, momentum, energy and species. These are 
used to calculate temperature, velocity, pressure, viscosity 
and density at specific points in the volume of interest. This 
volume, being the compartment studied, is broken down to 
finite volume elements. The conservation equations are solved 
at this level for discrete time steps from a known initial 
condition. Additional models of physical effects such as 
radiation, turbulence, and wall conduction are included to 
increase the simulation's validity. This method requires large 
amounts of computer memory and high speed processors. 

Much research has been done previously and has provided 
the basis for this thesis. At the University of Notre Dame 
[Refs. 1 and 2] work has been conducted involving aircraft 
cabin fires using a two dimensional finite difference field 
model which predicts velocity, temperature and smoke 
concentration inside the passenger area of an aircraft. 
Nicolette et al. [Ref. 3] developed a two dimensional model of 
transient cooling by natural convection. It utilized a fully 
transient, semi-implicit upwind differencing scheme and global 
pressure correction that was verified experimentally. 

More recent [Refs. 4 through 12] studies have developed 
numerical solutions for three dimensional rectangular 
enclosures in which non-linear partial differential equations 
were solved by finite difference methods. Models for three 
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dimensional cylindrical coordinate buoyant flows [Refs. 13 
through 19] have also been developed, and deal mainly with 
horizontal annuli with differential temperatures specified at 
inner and outer cylindrical walls. Smutek et al. [Ref. 18] 
studied buoyant flows in horizonal cylinders with 
differentially heated ends at low Rayleigh numbers (74 < Ra ^ 
18700) . Yang et al. [Ref. 19] conducted a similar study but 
with high Rayleigh numbers (10^ < Ra 10^) . 

Studies have also been done on methods for decoupling the 
pressure terms from the Navier-Stokes Equation. The stream 
function-vorticity formulation has been used [Refs. 13 through 
18] to calculate natural convection in various geometries. 
There are problems with this method such as instability at 
high Rayleigh numbers. Yang et al. [Ref. 19] address this 
problem and suggest using a primitive variable formulation 
when using arbitrary orthogonal coordinates. 

Natural convection in spherical annuli was studied by Ozoe 
[Ref. 20] utilizing velocity-vector formulation. Field models 
involving prediction of fires in enclosures have been studied 
by Baum and Rehm [Refs. 21 through 24] . These include time 
dependent Boussinesq equations to simulate three dimensional 
buoyant convection and smoke aerosol coagulation. Field models 
involving three dimensional enclosures and employing the 
Boussingesq approximation, were studied by Bagnaro et al. 
[Ref. 25] and by Markatos and Pericleous [Ref. 26] . 
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In this thesis, the numerical method developed by Yang et 
al. [Ref. 19] using primitive variable finite difference 
discretization in generalized orthogonal coordinates is 
employed. This method can handle complex geometries and has 
the numerical stability characteristic of primitive variable 
formulation. 

C. FIRE-1 TEST FACILITY 

An experimental test facility called Fire-1, has been 
constructed at the Naval Research Laboratory to study the 
behavior of fires in enclosed spaces found on submarines and 
surface ships. Since the computer code presented in this 
thesis models the geometry of Fire 1, this section contains a 
brief description of that facility. More information may be 
obtained from Alexander et al. [Ref. 27]. Figure 1.1 shows 
the basic layout. Fire-1 is a cylindrical pressure vessel with 
hemispherical endcaps. It is constructed of 3/8-inch ASTM 295 
Grade C steel and can withstand internal pressures up to 89.7 
psi and temperatures of 450°F. Its total length is 46.6 feet 
long. The cylinder and endcap radii are both 9.6 feet. Rupture 
discs are placed at each endcap to prevent failure due to 
overpressurization. 

Figure 1.2 shows the instrumentation layout. An array of 
chromel-alumel thermocouples with ceramic insulation and 
stainless steel jackets, are placed near each endcap. 
Additional thermocouples are placed on the chamber walls, both 
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inside and out, to monitor inside and outside wall 
temperatures. A specific test might call for placement of 
extra thermocouples or radiometers at various other locations. 
These are arranged as required by the experiment. 

Burn rate data is obtained using round, tapered edge fire 
pans of various cross sectional areas, and a constant level, 
liquid fuel supply system. To date, this data has been the 
least accurate in the experiment. The system and its 
calibration are described by Alexander et al. [Ref. 27] . Smoke 
concentration can be measured using video cameras, particle 
analysis and obscuration with laser detectors. 

To more completely represent shipboard compartments, the 
facility has a number of features. First is the installation 
of two removable decks, one at the midheight, the other at 
three feet above the bottom. Either grated or solid deck 
plating is used depending on desired configuration. Second is 
the installation of a nitrogen pressurization system used as 
an extinguishing agent. Its performance is being tested for 
possible use combatting actual fires. 

D. THE COMPUTER PROGRAM 

This computer model is a joint project undertaken by the 
Naval Postgraduate School and the University of Notre Dame. It 
represents a low cost alternative to full scale test using 
Fire-1. With proper modifications, used in conjunction with 
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Fire-1, it will test effectiveness of damage-control systems 
and evaluate new ship designs. 

In the work by Nies [Ref. 28], the code was based on a 
rectangular geometry with the volume identical to Fire-1. This 
was a three dimensional, finite volume model using primitive 
variables. Turbulence, wall conduction, and a global pressure 
correction factor were also included. Due to the unreliability 
of burn rate data, Nies [Ref. 28] devised a scheme for 
computing a heat release rate by using experimental pressure 
curves as input. 

The actual geometry of Fire-1 was employed by Raycraft 
[Ref. 29] . Using its spherical/cylindrical coordinate system 
and detailed formulation of radiation surface view factors, 
global pressure correction, conduction and turbulence, the 
code created an extremely viable model for use with Fire-1. 
There were the continued problems with simulating the heat 
release data which were partially resolved by numerically 
fitting experimental burn rate data available. 

Houck [Ref. 31] included a model which simulated internal 
forced circulation. It was compared to data run without 
circulation and it was concluded that circulation had minimal 
effects on the overall velocity and temperature profiles. 

In this thesis, advanced three dimensional and color 
graphics techniques are used to present data generated using 
the previously developed codes. Using the VAXSTATION 3100 SPX 
and the software CA-DISSPLA [Ref. 31] the data is presented in 
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a more informative fashion. Color graphics 
isotherm profiles and three dimensional 
represent velocity profiles. 



are used to present 
vector fields will 
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II. DESCRIPTION OF NUMERICAL MODEL 



A. GOVERNING EQUATIONS 

The model is based on the system of conservation equations 
which govern the behavior of fluid flow and heat transfer in 
gases. These equations are in differential form and are 
presented in generalized curvilinear coordinates using 
standard tensor notation. Nies [Ref. 28] based his model on 
rectangular geometry using Cartesian coordinates. Raycraft 
[Ref. 29] refined the model to describe the exact geometry of 
Fire-1 and included surface radiation. Houck [Ref. 30] 
described the transformation to curvilinear coordinates, used 
by Yang et ai. [Ref. 19], in detail and the following forms of 
the governing equations are obtained. 

The equation of continuity is: 

( 2 - 1 ) 



The energy equation becomes: 



( ) 
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where the source term, Sf is: 
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and the dissipation term is; 
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Shs is the heat source term which is zero everywhere except 
nodes at the fire's location and 8^^ is the Kronecker Delta. 



The momentum equation becomes: 
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Effective conductivity k^ff and dynamic viscosity Peff include 
both laminar and turbulent terms. Additional terms found in 
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the momentum equation are due to coriolis and centrifugal 
effects . 

The equations of state remain unchanged through coordinate 
transformations and are given as: 

P = pRT (2.7) 

( 2 . 8 ) 

B. INITIAL AND BOUNDARY CONDITIONS 

In order to solve this system of differential equations, 
boundary and initial conditions must be determined and 
applied. 

1. Initial Conditions 

The initial conditions for the model are determined 
from conditions present just prior to ignition in Fire-1. The 
air inside is totally at rest. The temperature is equal to 
ambient temperature and is assumed uniform throughout. 
Therefore, in the model, the entire velocity field is set to 
zero and the non-dimensional temperature field is set to 1.0 
which corresponds to ambient temperature. Pressure and density 
distributions are at static equilibrium. 

2 . Boundary Conditions 

Since the vessel wall is a solid boundary which is 
nonporous, the velocities, both normal and tangential to the 
wall, are zero. Mass flux across the wall is also zero. The 
temperature of the wall is equal to the temperature of the 
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fluid at the interface. Conservation of energy must also be 
met at the interface. The following three equations summarize 
wall boundary conditions: 



^surf “ 0 



(2.9) 



^fluld ~ '^solld 



( 2 . 10 ) 




( 2 . 11 ) 



where q^. is the heat flux arriving at the solid/fluid 
interface and n is the normal direction of the surface into 
the enclosure. There is conduction through the wall and 
convection from outer surface to ambient temperature. 

Due to singularities occurring at r=0 in cylindrical/ 
spherical coordinates, special care must be taken at the 
origin. Yang et al. [Ref. 19:pp. 167-168] discuss methods for 
addressing this problem. In this model, two consecutive 
control volumes are placed at r=0 and continuity is applied. 

C. MODELS OF PHYSICAL PHENOMENA 
1. Hall Conduction Model 

This model calculates heat loss from the vessel 
through the walls to the environment. It assumes one 
dimension, unsteady heat flow and constant convective heat 
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transfer coefficient at the wall's exterior. The energy 
equation is: 



2 . Turbulence Model 

The turbulence model is a simple algebraic method used 
to predict mean flow quantities for incompressible boundary 
layer flows. Developed by Nee and Liu [Ref. 33], the model 
determines the effective viscosity in recirculating buoyant 
flows with large variations in turbulence levels. The 
equation, transformed into generalized curvilinear 
coordinates, is: 




( 2 . 12 ) 
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where f /H is a non-dimensional mixing length parameter given 



as : 
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K is an adjustable constant and the Richardson Number, Ri, is 
given as ; 



Ri = 
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n is a unit vector in the opposite direction of 

gravity . 

Pr. is the turbulent Prandtl number which is also used 
to compute the effective conductivity. 
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Pr is the molecular Prandtl number. 
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3. Surface Radiation Model 



Raycraft [Ref. 29, pp. 24-44] describes this model in 
detail. Summarizing, the radiation model considers only 
surface radiation. Smoke and gases are considered transparent . 
Inside the model, walls and flame areas are treated as 
surfaces. Each surface is considered to be gray and diffuse. 
Sparrow and Cess [Ref. 34] discuss the net radiosity method 
upon which this model is based. 

Net rate of heat loss per unit area is given as: 

^ = t ( 2 - 1 -') 

^1 J -1 

where 

~ ^ ^ij ~ Vij ) (2.18) 



¥ij = X'l] 
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~ ( 1 



(2.19) 



is the view factor of radiation emitted by surface i onto 
surface j. The general equation is given by 
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III. FINITE VOLUME CALCUIATIONS 



A . INTRODUCTI ON 

The numerical model's independent variables are time and 
three space coordinates. Dependent variables consist of the 
three dimensional components of velocity, temperature, 
pressure and density. These six unknowns require six equations 
for solution. They are the continuity equation (Eq. (2.1)), 
the three momentum equations (Eq. (2.5)), the energy equation 
(Eq. (2.2)), and the equations of state (Eq. (2.7) and (2.8)). 
Doria [Ref. 35] discretized these equations in a method 
similar to this particular model based on the generalized form 
presented by Patanker [Ref. 36] . Doria applied the 
conservation equations in integral form to each control volume 
creating a set of finite difference equations which would lead 
to a solution. 

Each control volume, or cell, surrounds a nodal point 
where one value of each property is constant throughout. The 
center nodal point determines pressure density and 
temperature. The grid determining velocities are staggered by 
one-half a cell length. Patanker [Ref. 36:pp. 115-120] 
describes how this alleviates two problems: the pressure 
differential between the two adjacent nodes, which ultimately 
determines the velocity at the node in question, is based on 
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a length which is half as long as in the unstaggered cell 
(this reduces error by one half) ; second, stability is gained 
by this stagger which precludes unrealistic, wavy oscillatory 
velocity fields, since the difference of adjacent velocities 
are used to satisfy continuity. 

Since primitive variables are used versus the stream 
function, the pressure term coupling between equations must be 
handled specially. An iterative procedure estimates pressure 
and then pressure is corrected to ensure continuity is 
satisfied for each cell. A local pressure correction is 
discussed by both Patanker [Ref. 36:pp. 120-128] and Doria 
[Ref. 35:pp. 26-32] . A global pressure correction is included 
in the model to handle net energy changes and is described by 
Nicolette, et al. [Ref. 3] . 

The finite difference equations are solved iteratively. 
Non-linear problems like fluid flow are difficult to force 
convergence to final solution. Many schemes have been 
developed to obtain the flow problem solution. Each method has 
its problems and instabilities. This model employs the 
Quadratic Upstream X^^terpolation for Convective Kinematics, or 
QUICK, developed by Leonard [Ref. 37] . QUICK estimates values 
and gradients of transport variables at the faces of the 
cells. It has the accuracy of central finite difference 
schemes and the stability of convective diffusion terms found 
in upwind differencing. Yang [Ref. 12] applied the QUICK 
scheme to coupled momentum energy and pressure equation 
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solutions for three-dimensional flow in tilted rectangular 
enclosures . 

In this chapter, the governing equations will be applied 
to the specialized control volumes of the model. They will be 
put in integral form and discretized according to the QUICK 
scheme. Pressure correction from iteration will also be 
applied. 

B. CONTROL VOLUME ANALYSIS 

At the center of each elemental control volume, or cell, 
lies the grid point of interest. At this point, the model 
determines the unknown values of the dependent variables. 
Denoting this grid point as P (i, j, k) we define its 
neighbors as: ^ast (i+1, j, k) , West (i-1, j, k) , North 

(i, j + 1, k) , ^outh (i, j-1, k) , F.ront (i, j, k+1) , and ^ack 
(i, j, k-1) . The boundaries around P are designated by lower 
case letters e, w, n, s f, and b. Typical spherical and 
cylindrical cells are shown in Figures 3.1 and 3.2 
respectively . 

Figure 3.3 shows the basic two dimensional cell used to 
determine pressure, density and temperature. In contrast. 
Figure 3.4 shows the staggered grid used to determine 
velocities. The velocity u,'* is located on the west face; u^^ 
is located on the south face and u^^ is located on the back 
face (not shown) . The superscripts on the velocities designate 
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I 




Figure 3.1 Basic Spherical Cell. 
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Figure 3.3 Two Dimensional Cell. 




Figure 3.4 Two Dimensional Staggered Cell. 
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coordinate direction. These velocities are staggered in 
location by one-half cell length from the primary cell. 

C. INTEGRATION OF THE CONSERVATION EQUATIONS 

The conservation equations are integrated over each cell 
volume. From this point, they can be discretized into finite 
difference equations. The integral form of the continuity 
equation is: 





( 3 . 1 ) 



(pu^h.hj) ] 30100^80^ 

= 0 



The energy equation becomes: 





( 3 . 2 ) 



where : 




( 3 . 3 ) 
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The momentum equations become: 



j ( pu^ ) 

+ ) pu'uJ ] ae^de^ae^ 

J o0^ hj 

= ( p ae^ ae^ ae^ 

J d9^ 

+ JpG^hihjhjae^ ae^ ae^ 0.4) 

+ ( rtij ) 301 302 303 

J d0j 

- [^ (pu^u'-o^j) ] ae^ae^ae^ 

J 00-^ 

+ f [ ^ ( pu^u^-aJj) ] ae^ae^ae^ 

J 80-^ 

D. DISCRETIZATION OF THE CONTINUITY EQUATION 

To provide maximum stability and accuracy for the model, 
three finite differencing schemes are utilized. Forward 
differencing is used for time dependence, central differencing 
is used for diffusion terms and the QUICK algorithm is used 
for the convective terms. 

In forward differencing the future value of the time 
dependent variable is predicted from its previous value plus 
an additional term derived from the previously known slope m 
multiplied by the time step At. For example the new value for 
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density p" is calculated using the old value plus the 



extra term: 



p" = + /nA t (3.5) 

The integrand in the continuity equation (3.1) becomes: 

^dV= P" ~ hi h; hj A9^ A6^ A6^ = P” 7^”'^ AV (3.6) 
^ St ^ ^ ^ St 

Evaluating the integral. Equation (3.1) becomes: 

(p"-p"-M [ pu'h2h3d62d0Me- [ pu'hjhjde^deM^ 

+ [ pu^hihadG^dG^ ]„ - [ p u^h^hjdG^dG^ 

+ [ pu^hihjdG^dG^ ]^- [ p u^h^hjdGi dG^ 1^, = 0 

The mass flux, G, must be calculated at each face: 



) e = Ue 






p. (hiAGM,.i-^p^(h3AGM, 



( h^AGM,*! + ( hjAGMi 



(3.8) 



G„= (puM.= ui 



Pp ( h^AGMi-i +p„ ( hiAGMi 
( hiAGM^.i + ( hiAGM, 



(3.9) 



^r> = ( PUM „ = U 



2 

n -fi 



Pp ( hj AG^ ) + p„ ( hj AG^ ) ^ (3 iq) 

( hjAGM j.i + ( hjAGM j 



= ( puM 5 = u 



2 
s 



Pp ( hjAGM j.i + Ps ( ^aAGM j (3.11) 

( h^AG^ ) j.i ( h^AG^ ) j 
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( puM f = Uf 



Pp ( h 3 A 03 ) 



Pr ( * 3 ^ 0 ' ) 



( hjAe^ )*♦!+( * 3 A 0 " ) * 



(3.12) 



<^b= ( puMfc= Ub 



Pp (h3A0M,.i-^PB (*3A0M* 

( h,Ae^ ),.,+ ( h3A0^ ) , 



(3.13) 



The areas of the faces of the cell are given as: 



= ( h2A02h3A0Me,. 


(3.14) 


= (h,A0^h3A0M„., 


(3.15) 


= (hiA0i h^AB^ ) 


(3.16) 



In final finite difference form the continuity equation 
becomes : 



( p"-p 

St 



n-l 



) AV 






~ ~ - ^mp 



(3.17) 



S„p is the mass source term. As this residual approaches zero, 
the solution approach the exact solution. Iterations occur 
until S„p reaches a specific, extremely small, cut off value. 
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E. DISCRETIZATION OF THE ENERGY EQUATION 

Integrating over the control volume, the energy equation 
becomes : 



[ (pCp^r)"- (pCp„D"-M 

- G„ ( Cp„T) „A„ - G, ( V) ,A, ^ 






+ A„ 

n n 



*k,A, 



^ dT ^ 



-KA„ 






dT 



\ 



h^W 

2 yn 



-k^A^ 






dT 



\ 



^ A 







3 Jb 



S^V 



( 3 . 18 ) 



where S, is the source term including dissipation, radiation, 
pressure work and heat sources. The total heat flux, J, 
resulting from convection and conduction is: 



v 7 e\.= 



(pc u^D -k 



eff ' 



dT 1 



( 3 . 19 ) 



Jn.s = 



(pCp„ii^r) -k 



dT 



1 



( 3 . 20 ) 






(pCp^u'T) 



. ^ 9 r 



( 3 . 21 ) 
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The final finite difference form of the energy equation 
becomes : 

1 (PC^T)"- (PC^T)-M 

jIa„ - jIa^ + - jIa^ = s,hv 

The term (pu-'Cp^T) in the flux equations give rise to 

difficulties since Cp„, p and T are evaluated at the nodal 
point instead of the surface of the cell. Thus, fluxes are 
determined from values of p, T, and Cp„ at P and its neighbors. 

The QUICK Scheme is used to determine accurate values of 
the dependent variables at the control volume surfaces with 
stable properties. QUICK couples the stability of upwind 
differencing with the accuracy of central differencing. It is 
achieved by using a parabolic polynomial interpolation to fit 
the control volume at three consecutive nodal points. Two 
nodes are located on either side of the surface and one is 
located upstream. Yang [Ref. 12:pp. 77-89] discusses QUICK for 
one, two and three dimensions. Houck [Ref. 30:pp. 37-50] and 
Raycraft [Ref. 29:pp. 63-74] used the QUICK scheme for the 

energy equations and that method is repeated here. 

Figure 3.5 from Raycraft [Ref. 29:pp. 64] shows the one 
dimensional scheme for the quadratic interpolation of a non- 
uniform grid. 
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It is given by the equations 



( P ^pm UT ) ^ ~ 



Y 


2’n + r- ^ 


- JL curv 


-V 


2 J 


T " J 



( pCp„vT) ^ = 



^ T + T ^ 

p W 



>-V 



J 



-|curv.J 



where the upstream weighted curvature terms are: 



and 



curVg 



curv„ 



Axi r 


1 

1 




~^i[ 


AX, 


— 1 
< 


Axi 


r r„-r. 


1 

1 


’^i\ 


L 


AX, 


Axl 1 


r 


1 

1 






Axt I T^-Tp Tp- T„ 

■o:L-or 



if G^>0 

j if G^<0 

if G„>0 
if G„<0 



AX, = ^ (AX,+AX,,i) 
AX,= ^ (AX, +AX,.i) 
AX,, = ^ (AX,,,+AX,^,) 
AX„=^ (AX,.,+AX,_2) 



(3.23) 



(3.24) 



(3.25) 



(3.26) 



(3.27) 
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In generalized orthogonal coordinates the convective flux 



terms become: 



< PC’p^.u 



D,= 



G C 

e ’^pjn. 



1 



curvn^ 

/ 



<PCu^T)„^GC 



pm. 



1 



curvn„ 

y 



where 



curvn^- 



(hjAeMir T^-Tp 
(hiAOMi [ (hiA0l), 

(hiAGMi r 



ThlOTTTj 



if > 0 



-AliLl 

(hjAGMe J 



if G^< 0 



and 



( hiA0i ) ^ = ^ [ ( hjAGi ) , + ( hiAG' ) ] 

( hiA0M„ = ^ [ ( hjA0M, + ( hiA0M,.i ] 

( h,A0i ) ,, = ^ [ ( hjAG' ),,!+( hiA0i ) ] 

( h, A01 ) ^ = ^ [ ( hiA0i ) i-i + ( *iA0' ) ,.2 ] 

Equation (3.22) now becomes: 

[ (pCp„n"- (pCp„D"-M ] 

= A,T^^A„T„-A,T,*S {h,AQ^) 



(3.28) 



(3.29) 



(3.31) 



(3.32) 



(3.33) 
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Tee are included in the source term using a semi- 
implicit tri-diagonal solution procedure. For a uniform grid, 
the other coefficients are: 



I «.l > 



<3.34) 






TT~ 



G,| ) 



C ( G 

P». ' e 






K 

hjAei 



(3.35) 



^ (G.C^_-G,C^_) .3 ( |G,1 C^PG.) -1^ (3.36) 
S, = S)l,Ae'-C^_ ( I G.l -G.) r„-C^_(|Gj »GJ (3.37) 

As mentioned before, Yang [Ref. 12:pp. 82-89] extended the 
QUICK algorithm to three dimensions. The three dimensional 
algorithm for generalized orthogonal coordinate system is 
described below. 

As in the one dimensional case, the average temperature of 
the control volume is determined by interpolation of its 
neighbors in three directions. For illustration. Figure 3.6 
from Raycraft [Ref. 29:pp. 68] shows a simpler uniform 

rectangular grid. The actual grid is similar except that its 
cylindrical/spherical geometry is more difficult to show. Yang 
[Ref. 12] describes how curvature terms are calculated for 
each of the temperatures and substituted into the convection 
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terms of the energy equation. The new energy equation becomes 



= a/ + A J T„ + aJ + a/ + As’’ + Sj 



( 3 . 38 ) 



where the additional source term is: 

Su — ( P ) " ^ ~ Aj-j^ + ^UWR * ^NNR * ^SSR *' ^FFR ^BBR (^ * 38) 

The following terms are part of Equation (3.38). All values 
are for point (i, j, k) unless specified elsewhere. For = = 
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example, is designated Ui^ whereas, Ui^i, j, 



is specified 



u 



itl • 



CN=G„-uj.i- (h 3 A 0 M„- (^A 0 M„ 
CS = G,-uj- (h3A0M,- (hjA0M, 
CE=G^* u],i- (h3A0Me- (h2A0M« 
CW^G,' uj- (h 3 A 0 M„* (h 2 A 0 M„ 
CF = Gf • Uk^l• (hiA0Mf* (h2A0Mf 
CB = G,’ ul' (hiA0Mb* (h2A0Mb 
Thermal conductivity is expressed as; 



( A:, • ( h 3 A 02 ).)-!+( A:_ • ( h 3 A 0 ^ ) ) -i 

^ (h^AQ^) (h2A0Mj*i 

()cj- ( h2A0M j ) -' + ( • (h2A0Mj.i)-' 

(h^AQ^) ( h 2 A 0 M 

(;:,•( hiA 0 ^ ),)-'+( A:,,, • ( hjA 0 ^ ) ,,3 ) 

(hiA0^),+ (hiA0Mi,i 

(;:,•( h3A0i ),)-!+( ;c,_3 • ( h,AQ^ ) , ) -^ 

( hjA 0 ^) + ( hjA 0 M ii 






(;:*• (h3A0M*)-'+ (hsABM 

(h^AQ^),+ (h 3 A 0 M**i 







(;c,- (h,AQ^),)-^* (k,.r (h,Ad^,., 
(h 3 A 0 ")^+ (h 3 A 0 M*.i 




(3.40) 



(3.41) 
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CONDNl = k„ 
CONDSl = 



CONDEl = k^ 
CONDWl = k„ 



CONDFl = 
CONDBl = JCj, 



hjAe^- h.A0^ 
hjAe^* h,A0' 

— h;a^^ — 

• ?i2A02 



ii3A03 • /I 2 A 02 

h,A0i- h,A02 
' _ 

h,A0i* h,A02 





(3.42) 



35 



rrp= |C£| *CE. 


( ^1,A01 




( h^Ae* ) ^ 


r™= |C£| - C£. 


( h.AGM, 


rs 


(HiASMj., 


rwp . 1 r ■ 




TE 


(JljABMi., 


1 

II 

0 

1 

o 

• 


(h,A0M. 




( A,A8‘ >1 


rMP p 1 CN 1 * CW . 


(h,A6M, 


TZ 


( hjAB' ) J 


cm,. \CN\ -CN. 


(h,ABM, 


IZ 




rPPp l«l *«■ 






( hjAe^ ) 


r.PMp 1 "1 -CS . 


( >£ 




( h^AQ^ ) J 


rppp ICFl *CF. 


( hjAe^ ) p 


IT 


( h,A 0^ ) , 


rPMp |C£| -C£. 


( hjAG^ ) ^ 




tmtsht; 


rRP = 1 1 * • 




TT 


( h3A0^ ) 


TRMP 1 «l -«. 


( h,AQ^)^ 




"(XaPTT 



( 3 . 43 ) 
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Ac£ = 



7 



^NN 



4 ^ — 

Ass 



A^ = 



Afla ^ 



-CEM- ( h^AQ^ ) ^ 
-CWP- ( hiA6‘ ), 
-CNM- (hjAOMn 

Thl^FTI 

-CSf- (hjASM, 
( h,AO ‘ ) „ 

-CFW- (hjAGMf 

TH^aFTT 

-CBP- (hjAGMi, 



( h,A0" ) 



bb 



Final coefficients for the source term are: 



(3.44) 



4 = 4 • 

"eer 


^^1*2 * 


A = 4 ^ • 

^WWR "ww 


^i-2 * 


4 = 4 ^ • 




■^SSR ” ^SS * 


T • C 

^ j-2 ^pm^ 


4 — 4 ^ • 

^FFR 


T • (? 

lc^2 ^pm... 


4 = 4 ^ • 

^SBR 


T ^ • C 

^ k-2 ^pn>,-a 



(3.45) 
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Intermediate coefficients are 



^ • CE + CEP + CEM 



, , (A.ieM, 


+ CWM- 


( h,AeM„ 


(AiABM.. J 




_ (hjAeMe _ 



A„j = ^ • CF7+ cm*cm> 



1 (^iiA0M„ 

1 + , 


+ CEP • 


( i3iA6M« 


(^A0M^ J 




[(AiAeM.J 



(3.46) 



(3.47) 



A„j = - ^ • CW + CWP + CWM 





+ CEP • 


(*2A0M, 


(^A6M„„ J 




(^A0M„ J 



A^j = ^ • CS + CSM + CSP 



1 . (h,A0M, 


+ CWP • 


( A,Ae' ) , 


( A,A0' ) „ J 




_ ( h^AQ^ _ 



(3.48) 



(3.49) 



A,, 



^ • CF + CFP + CFM 



, (hjAOM/ 


+ CBM- 


( ftjAe' )b 


Th^A^TT^ _ 




_ ( *3A0^ ) , _ 



(3.50) 



= ^ • CB + CBM + CBP 

( . 



^ ^ ( h,A 6 Mt 
(h’A 0 M.. 



CFP 



(3.51) 
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Final coefficients are: 



A/ = A„- Cp„^*CONDEl 
Cp„^^CONDWl 
Aj = A^,- C^^^^CONDNl 
aI = A^,' Cp^^^CONDSl 
A/ = A„ • + CONDFl 

Ab = A,, • Cp„^ + CONDBl 



( 3 . 52 ) 



and: 



Ap^=c • ( aZ + aJ + aJ + As^ + aZ + aJ’ 

■*■ A^£ + Affff + A^ ■*■ A55 + App + A33 ) ^CONDEl 

+ CONDWl + CONDNl + CONDSl + CONDFl + CONDBl 



( 3 . 53 ) 



F. DISCRETIZATION OF THE MC»4ENTUM EQUATION 

The integrated momentum equation is: 



( p u M t A^ - A„ + M„"^A„ 



ii 



,12 



( 3 . 54 ) 



- Wf A^ + Mf^Af - Mt^A^ = S ^ 

where are the face areas of the staggered cell given by 
Equations (3.14 - 3.16). is the momentum flux in the 0^^ 
direction due to velocity u^ convection and to diffusion, and 
is given by: 



= (pu-'u^-Oi) 



( 3 . 55 ) 
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Included in the source term are pressure gradient, body, 
Coriolis and centrifugal forces. The source term for velocity 
u* is : 



- ( A„ - A^ ) - (Af-A^) + (Wp“ + ) { A^ + A„ ) 



( 3 . 56 ) 



Yang, et al. [Ref. 19:pp. 11-13] describe a "stress flux 
formation" as it applies to a curvilinear coordinate system. 
Stresses are evaluated from previous information and the 
source is given in the current information. The momentum flux 
is : 






( 3 . 57 ) 



where : 




( 3 . 58 ) 



= pu^u ^ 



( 3 . 59 ) 



The momentum equation for velocity u* is now: 




where : 
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The momentum equation for 0^ takes a form similar to the 
energy equation 



uj =Aru* -HAru* ^Aru; -HAru; 

+ Af‘ uj + Ab‘ Ufc + S“' u- 

Again we must obtain final coefficients, 
intermediate mass flow rate per unit area: 



G - { [P?*i ^ ^2^0^ h * Pj ^ ^ j*i] ) 

^ _ ,,2 I [ Pi-1, j»i ( hj A0^ ) j Pi-1 ( hj A0^ ) 

‘ ( . -T vnF ) 

^ - jj 2 ([Pj-1 ^ ^ J Pj ^ ) j-l] J 

(h^AQ^) ( h2A0M J.i 



G^= u/.i 



([ Pi- 1 , j-i ( hjA 0 ^ ) j + ( I22A 0 ^ ) 1-1 ] ) 

(h2A0^)j+ (h2A0Mj.i 

( [Pi^i ( *:A0M« + p, ( hiA02 )^,] j 
( h,A0^)^ + ( h,A0^ 



(3.62) 

Introducing 



(3.63a) 



41 



^fe 



= [Pi-: (/3:A6Me+Pi ( *:A6M „] j 

/ [Pi-2 (*:A0M, + P,.i (h,A0M„„], 

■ (h,A6^)„M^A0M^ 

_ 3 / [ Pk*i ( h^AQ ^ ) k ■*■ P* ( ii3A0^ ) k*i ] \ 

■ — (h3A6^)*M*3Ae'“ — 



« ,,3 ( [ Pl-1, k*l ^ ^3A0^ ) k ■'’ Pl-1 ( ^3A0^ ) k»l ] ) 

" ■ '■'• *•■ ' ’ 

r: = 773 I [ P*-l ^ ^3A0^ ) k ■*' Pk ^ ^ 3 A 0 ^ ) k -1 ] ) 

(h3A0^)j,+ (*3A0 ^)*_i 

- 7i 3 / [ Pi-1, k-1 ^ ^3A0^ ) k ■*■ Pi-1 ^ h^AQ^ ) k-1 ] \ 

( h3A0^ ) k < ii3A0^ ) 



Final mass flow rates are: 



CP7=^ {G^*G.J 
CN= ih,AQ^) ,• 
CS= (h.A0i)^* 
CF= (h.A0i) 
CB^ ih,AQ^) .^- 



(A,A02) • (ft,A03) 



• (ft2A02)„- (*3A0^)„ 



). 

' (AiA0M„ 



G„„(h,A0Mj 

(h,Ad^)^ 

G,„(h,A0M J 
(h,Adl)e 

G,.^ (h,A0M J 

(*iA0M^ 

G,„(h,A0i) J 



(3.63b) 



(3.64) 
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The local viscosity is: 



VIS^ - VIS 
VIS„^VIS,., 



VIS„ = 
VIS^ = 
VISf = 
VIS^ = 



( VISj.i * + VIS,., + VIS,., ) 

3 

( VIS^., + VIS + VIS,., ^., + VJSi.i ) 

g — ^ 

( VIS,^, ^ VIS * VIS,.,^ ^ VIS,., ) 

g 

( VIS,., * VIS -H VIS,.,^,., * VIS,., ) 

3 



(3.65) 



vism = vis„ • 



VISSl = vis^ • 



VISEl = 1^15, 



VISWl = VIS.. 



VISFI = VISf • 



VISBl = V-ISh 



( hjAe^ ) ( h, A6^ ) 
( h,A0^ ) 



( hjAe^ ) ( hiA0i ) 

HvaFI 



( hjAe^ ) ( hjAe^ ) 

( hiAdl ) 

( hjAe^ ) ( hjAe^ ) 

•( h,A6^ ) 



( h, A0i ) ( ) 

( hjAd^ ) 

(hiA0M (h2A0M 
( h,A6^ ) 



Jf 



(3.66) 
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The momentum equation coefficients are: 





u;.i 


21 — 7\ “ • 


U/-2 


21 = 21 “ • 


uj>2 


^SSR “ * 


u]-2 


^FTR ~ ^rr * 


Uk*2 


a - a “ • 


Uk-2 



( 3 . 67 ) 



As with the energy equation, the value of the final 
coefficients are: 



Ae = + VISEl 



A» = A„, + VISWl 



*wr 



Av = A.. + VISNl 



As“ = Ajj + VISSl 
Ar = A„ + VISFl 
Ag = Agj + VISBI 



( 3 . 68 ) 



and 



Ap“ = Ar“ + A„“ + A.v“ + As + Ar + A^ 

+ Ae£ Aww A/k/v + Ass Aff + Agg 



( 3 . 69 ) 
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The final source term is given as 



eu ^ [ p ( h,AQ^ ) „ + ( hiA0i ) e ] . AV . ,,i 

“ [ (hiA0M,+ (hjAWM J 

+ (h,A0M^ (h3A0M, (Pi-i-P, ) + + 

+ + ArrR + Abs„ ■>■ re -RW+RN-RS 

(3.70) 

+ RF-RB + RRY + i?KZ - i?HX - BC70r 

• (sin [ ZC(fC) ] • (p-peg) • (hiA0M„ 

• cos [XCiD ] } + { ( p,_i - p^,^^ ) ( hiA0i ) , 

• cos [XC(I-l) ] } / [ (hiA0M„+ (hiA0M J AV 

where XC and ZC represent the center of the cell. The 
remainder of the terms are explained below. 



R£= ( h^AQ^)^ ( h3A0Me* 
RW= (h3A0M„ (h3A0M„* 
RN= (hjA0M„ (h3A0M„* 
KS= ( hjA0M^ ( h^AQ^)^’ 
RF= ( hiA0Mf ( h3A0Mf- 
f?B= ( hiA0Mb ( h,AQ^)^- 



0^1 - ( - ul ) • 

( hiA0M^ _ 

oili - ( u' - ui-i ) • VIS„ 

- ( u]*i - u] ) • vis„ 

(*2A0M„ 

Q:2 _ ( yl _ 

(^32A0M, 

a“i - ( uU -ul) • VIS, 

( *3A0^ ) ^ 

0^3 - ( ) • VlSfc 

( hiA0^ ),, 



(3.71) 
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0^2 = ^ ( 03*1 + 03 ^ ) 

0'^3 = ^ ) 

^2 ^ „ -H oiii ( h, AS' ) ^ 

( hiA0M„ + ( hiA0Me 

^3 ^ 0^3 ( hi A0M „ ^ ai-i ( hi A01 ) ^ 

~ (hiA0M„+ (hiA0Me 



AC71 = U‘ 



AC72 = { 



uj*i ( h2A02 ) J Uj ( h2A0^ ) 3 

TTh^K^Tj 



( h,A0i ) 



uf-i, i*i ( hjA0^ ) j + uf-i ( h2A02 ) ^ 
2 ( h^AB^ ) j 



( hiA0M J 



/ ( ( hiA0M„-^ ( hiA0Mel 



AC73 = { 



u*^l ( h,AQ^ )„*ut ( h^AQ^ ) 
2 ( h,A0^ ) , 



(hiA0M„ 



[ ^i-i, *»i ( h^AQ^ ) 1^ + u<-i ( hj A0^ ^ * ] / h A fli \ 1 

2 (H 3 A 0 -') 

/ [ ( h.A0i ) + ( h,A0i ) J 



^p_ P (i3iA0M„^Pi.i (hiA0M, 

(hiA0M„MhiA"r-:— 

ARU12 = Ai? • AC71 * AC72 
ARU13 = AR' AUl * AC73 
ARU22 = Ai^ • AC72 • AC72 
ARU33 = AR' AU3- AU3 



( 3 . 72 ) 



( 3 . 73 ) 



( 3 . 74 ) 
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(3.75) 



RRY= i'd^^-ARU12) „ - ( iiiA0M J 

RRZ= (0^^-ARU13) (h^ASM j ( (h^ASM f- (.h^AQ^) 

RRX^ {C^^-AUR22) ( h3A0^ ) [ ( h2A02 ) e" ( *2^6^ 

+ (o”-aC 7J?33) (h2A0M j[ (h3A0Me- (^0^) J 

Similarly, momentum equations for the other two directions may 
be obtained but are omitted for brevity. 

6. PRESSUPE CORRECTION 

In the finite difference scheme, energy and momentum 
equations are used to solve for temperature and velocities. 
The equation of state and continuity are used to solve for 
density and pressure. Doria [Ref. 35] states that pressure is 
only weakly coupled to the equation of state. Therefore, 
updated temperatures and pressures determine density in the 
equation of state and continuity is used to correct pressure 
across each cell. 

As discussed earlier, a disadvantage of using primitive 
variables is the difficulty in calculating pressure. Two 
corrections must be applied. First, a global pressure 
correction accounts for changes in net energy of the closed 
system. Second, a local pressure correction accounts for 
pressure changes causing the velocity field. 

1. Global Pressure Correction 

Nicolette, et ai. [Ref. 3] developed a correction 
scheme for a two dimensional square enclosure. Raycraft [Ref. 
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30] modified it to fit the geometry of Fire-1. In a constant 
mass and volume system, the overall pressure depends on the 
addition or removal of energy. In such a system, the sum of 
all the cells' computed density times its volume is equal to 
a constant total mass. At any time during a run the mass must 
equal the total mass at equilibrium. Summing over N cells; 

Y, p; {av),^y p«, <3.76) 

where n is the n'** time step and the EQ subscript indicates the 
equilibrium point. Assuming that air is an ideal gas, its 
density is a function of temperature and pressure only. The 
actual values of both consist of the estimate and the global 
correction : 



P = P-+P; (3.77) 

T-T‘ + Tg (3.78) 

where P’ and T* are the estimates and Pg' and Tg' are the global 
corrections using the ideal gas law and Equation (3.76). The 
global pressure correction becomes 




(3.79) 



Mass is conserved for each cell when an accurate final 
pressure is obtained. 
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2. Local Pressure Correction 



Patanker [Ref. 36:pp. 120-126] and Doria [Ref. 36:pp. 
26-32] developed a procedure for obtaining the local pressure 
correction. As in the global correction scheme, a pressure 
field is estimated from the previous time step. Velocities are 
calculated according to this pressure distribution and the law 
of continuity is applied to each cell. If the residual mass 
term S„p approaches zero, then the estimated pressure field is 
satisfactory. If not, a local correction is calculated and 
applied to the original estimate. The new pressure field is 
used to compute a corrected velocity field and the residual 
mass S„p is rechecked. The process repeats itself until S„p is 
an acceptably small value. As in the global correction, the 
actual local pressure is: 

p - p* + p' (3 . 80) 

where P* is again the estimate, usually the pressure of the 
preceding iteration, and P' is the local correction. Putting 
this correction in typical finite difference form: 

ApP; = Aj.p; + A„p; + a^p; + a^p; + a^p; + a^Pb - s,pAv o . sd 



49 



where : 



p^- [ (h,AQ^) ]l 



p,.* [ ( 


A“^ 

Ap... Pe-^ 
h^AQ^ ) { *3/ 


It 


Pn‘ [ ( 


A“^^P 
Ap p-'-Jt 

h^AO^ ) ( *3/ 


^0M Jt 


P.- [ ( 


A“^+D 
_ P- Pn-J^ 

h^AO^ ) ( h^i 


It 


P/* [ ( 


A“^-.D 
h^Ad^ ) ( 


]t 


Pb* [ ( 


A“^ -KD 

Ap... Pf-^ 

h^AQ^ ) ( hji 


^0M ]l 


Aj. + 4 


a“^-kd 
A p Pi-Jt 

■ Aw + A5 + Ap + 


Aa 



Corrected velocities are: 



( 3 . 82 ) 



= u^* + u^' 
u2 = u^* + u^' 
- u^* + u^' 



( 3 . 83 ) 
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where : 



( Pp + P„ ) ( h;Ae^ ) (hjAd^) 



1 

( p + p 

' p s 


f , ui ^ „ AV\ 
) (*iA0M ( 


1 

hjA0^ ) 


1 

( p, * p. 


) ( h.A0' ) ( 


1 

: *2^0' ) 


1 




1 



( 3 . 84 ) 



Again S^p is computed using continuity. If the residual mass 
is within a satisfactory range, the calculation is finished. 
If not, another iteration takes place. 
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IV. NUMERICAL PROCESS 



A. INTRODUCTION 

Temperature, velocity, pressure and density fields are 
produced by the code. Input parameters are initial conditions, 
fuel heat release rate, fire location, geometry and material 
characteristics such as fluid properties, wall properties and 
the external heat transfer coefficient. These are listed in 
Table 4.1. 



Figures 4.1 and 4.2 show the spherical/cylindrical grid 
used by the model. Endcaps are spherical with 6, R, and (j) 



TABLE 4.1 MODEL PARAMETERS 



MALL CHARACTERISTICS 




Material 

Thickness 

Specific Heat 

Thermal Conductivity 

Density 

External Heat 
Transfer Coefficient 



FIRE C^RQEWSKCa 

Burn Rate 

Initial Temperature 
Initial Pressure 
Location of Fire 



ASTM 285 Grade C Steel 

3/8 inch 

0.1 BTU/ (lbm*F) 

25 BTU/ (hr*ffF) 

487 Ibm/ft^ 

15.0 BTU/ (hr*ft^*F) 



Function provided in program 
35 . 6°C 
1.0 ATM 

Center of Fire-1 

23.1 ft. from each endccap 

3.21 ft. from bottom 
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Figure 4 . 




^ Front View of Coo^uter 



Model (YZ-Plane) 
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Figure 4.2 Side View of Computer Model (XY -Plane) 
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directions. The cylindrical midsection have 0, R and Z 
directions. There are 14 cells in the R direction, one at R=0 
for avoiding singularity and one used as the vessel wall. 
There are 20 cells oriented clockwise in the 0 direction. Each 
endcap has six cells in the <j) direction with a cell again at 
zero to avoid singularity. The midsection has 18 cells in the 
Z direction ((() is used for simplicity). Table 4.2 gives 
information on grid parameters. 



TABLE 4.2 ADDITIONAL MODEL PARAMETERS 



Number 


of 


interior cells 




6,720 


Number 


of 


wall < 


cells 




560 


Number 


of 


wall : 


radiation zones 




560 


Number 


of 


fire : 


radiation zones 




19 


Number 


of 


cells 


in R direction 




14 


Number 


of 


cells 


in 0 direction 




20 


Number 


of 


cells 


in <j) direction 


(per endcap) 


6 


Number 


of 


cells 


in Z direction 


(midsection) 


18 


Time step 








0.0288 sec 


VAXSTATICN 3100 


CPU time (1 CPU 


hour) 


0. 8-1.0 sec 












Fire Time 



B. SOLUTION PROCESS 

The model contains two separate programs . The first 
authored by Raycraft [Ref. 29] calculates the view factors for 
surface radiation. It produces a matrix of view factors. It is 
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used only once and its values are stored for use whenever 
called by the second program. 

As described by Nies [Ref. 27], Raycraft [Ref. 29] and 
Houck [Ref. 30], the main program uses finite difference 
methods described previously to establish temperature, 
velocity,, pressure and density fields. Initial parameters and 
the view factors are first read into the program. Geometry of 
the grid is then calculated and the fields are set to initial 
conditions. Next, effective viscosity is computed in 
subroutine CALVIS. Every two time steps, surface radiation 
flux is, recalculated in subroutine RADHT. Subroutines CALT, 
GLOBE, CALU, CALX, CALW and CALF calculate temperature, the 
global pressure correction, the velocities and the local 
pressure correction. Using the corrected velocities, 
continuity is applied to each cell. If the residual mass 
RESORM is greater than 10.0 the program is unstable and stops. 
A smaller time step must be used. If RESORM is greater than a 
set tolerance level then the program iterates solution by 
recalculating velocities and pressures. Iterations continue 
until 1) RESORM is below tolerance levels, solution is reached 
and the program proceeds to next time step; 2) the maximum 
number of iterations is reached, or 3) RESORM is greater than 
10.0 and the program is stopped. 
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C . GRAPHICAL ANALYSIS 

The use of CA-DISSPLA” [Ref. 31] has posed some difficult 
problems. The output from the computer model is in the 
spherical/cylindrical coordinate system created to simulate 
Fire-1. This output must be converted to cartesian coordinates 
in order to be manipulated by CA-DISSPLA”. Even after the 
conversion is completed the resulting irregularly spaced grid 
must be interpolated into a regularly spaced grid. 

After some experimentation with grid interpolation 
schemes, a group of CA-DISSPLA” subroutines are used to create 
a regularly spaced matrix. These subroutines interpolate 
values from a set number of neighbors. Care must be taken in 
choosing a grid size to ensure distortion of the field values 
does not occur and to ensure that the software will not zero 
data points with few close neighbors. A relatively course grid 
has been chosen (50 x 50 x 100) for graphics output.. New data 
points created outside the enclosure have been set to ambient 
values to minimize distortion at the boundaries. 

The VAXSTATION 3100 has proven to be an excellent machine. 
It has good numerical speed coupled with very sharp graphics 
capabilities. Future research of this numerical model has been 
greately enhanced by the incorporation of this workstation. 

The following figures are temperature and velocity 
profiles for times of 30, 60, and 90 seconds. They are two 
dimensional images of three dimensional phenomena. Each 
figure, whether temperature or velocity, presents an axial 
view (XY-plane) of the tank at the midplane and a longitudinal 
view (YZ-plane) , again at the midplane. 
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Raycraft [Ref. 29] and Houck [Ref. 30] detailed the 
validation of the code against experimental data of Fire-1. 
They also discussed such phenomena as the fire plume, pressure 
effect, temperature stratification, and velocity fields. Much 
of their analysis will not be repeated here. Instead, the 
effects of local numerical perturbations will be discussed. 

Raycraft [Ref. 29] observed remarkable symmetry in 
temperature and velocity profiles throughout the entire trial. 
Houck [Ref. 30] also observed the expected asymmetry, after 
implementing forced ventilation in two locations. In this 
thesis, these ventilation equations are not removed. The 
additive velocities were simply set to zero. As seen in 
Figures 4.3 to 4.8, a marked asymmetry similar to that 
observed in Houck [Ref. 30], has developed and is readily 
observed in both temperature and velocity profiles. This is 
despite the fact that the effects of ventilation have been 
supposedly negated. After the millions of calculations done by 
the computer to provide solutions, terms in the ventilation 
equations which are set to zero have greatly effected the 
entire field. 

Color graphics have greatly enhanced ability to observe 
phenomena in the temperature fields. Temperatures can be 
quickly determined using the color legend, as Figures 4.3, 
4.5, and 4.7 show. These figures have been printed on a 
Tektronics 4693D color printer and exhibit excellent clarity 
and resolution. 

Three dimensional vector field representation of the 
velocity fields. Figures 4.4, 4.6 and 4.8 can only be 
represented in two dimensional form for this geometry. Results 
become confusing if three dimensions are shown. 
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Figure 4.3 Temperature Profiles at 30 Seconds 
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Figure 4.4 Velocity Profile at 
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Figure 4.5 Temperature Profiles at 60 Seconds 
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Figure 4 . 6 Velocity Profile at 60 Seconds 
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Figure 4.7 Temperature Profiles at 90 Seconds 
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Figure 4 . 8 Velocity Profile at 90 Seconds 
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V. CONCLUSIONS AND RECOMMENDATIONS 



A. CONCLUSIONS 



1. The acquisition of the VAXSTATION 3100 SPX XRJ19 Model 
38 workstation with its blend of numerical speed and 
graphics clarity has greatly enhanced the research. 

2. The ventilation equations incorporated into the model 
in the previous thesis have a great effect on the 
entire field even when their output velocities are set 
to zero. 

3. Color graphics have provided an excellent means for 
presenting temperature profile data. Coupled with the 
Tektronics 4693 color print, CA-DISSPLA” Graphics 
Software provides researchers with an excellent tool 
for displaying scaler data fields. 

4. Three dimensional vector fields are difficult to 
present, ambiguous, and must be reduced to two 
dimensional images. 



B. RECOMMENDATIONS 



1. Removal of the ventilation equations is required to 
regain symmetry observed .in previous research. These 
equations are effecting the entire field although their 
additive velocities have been set to zero. 

2. More sophisticated physical models need to be 
formulated and incorporated, such as turbulence, 
gaseous radiation and combustion. 

3. Streakline analysis in three dimensions should be 
conducted to show the path taken of an individual fluid 
particle as it leaves the flame area. This method may 
reveal more of the fluid dynamics than current 
representations of velocity vector fields. 

4. The ultimate goal of this project is to develop a model 
which can predict behavior of fire in shipboard 
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situations, for example, changing the geometry to fit 
machinery spaces and berthing compartments, this will 
offer designers a valuable tool for the construction of 
safer ships and submarines. 
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APPENDIX 



THREE-DIMENSIONAL NUMERICAL SIMULATION 
OF A FIRE SPREAD INSIDE A NAVY STORAGE TANK 



H.Q, 



DEVELOPED BY 
YANG AND K.T, 



YANG 



DEPARTMENT OF AEROSPACE & MECHANICAL ENGINEERING 
UNIVERSITY OF NOTRE DAME 
NOTRE DAME, INDIANA, 46556 

DEC. 1986 



COMMON/R4/XC(93) , YC(93) , ZC ( 93 ) , XS (93) , YS ( 93) , ZS (93) , 

& DXXC (93) ,DYYC (93) ,DZZC(93) , DXXS(93) , DYYS ( 93) , DZZS (93) 

C0MM0N/3L1 /DX, DY, DZ , VOL, DTIME, VOLDT, THOT, TCOOL, PI , Q, QR 
COMMON/SL7/N I , N IP 1 , NIMl , N J, N JPl , NJMl , NK, NKPl , NKMl 
i , NIP2 , NUP2 , NKP2 , NA, NAPl , NAMl , NB, NBPl , NBMl , KRUN, NCKIP, NJRA, NWRP 
COMMON/BL12 / NWRITE, NTAPE, NTMAXO , NTREAL, TIME, SORSUM, ITER 
COMMON/BL14 /HCOEF , TINF, CNT, ABTURB, BTURB, VISL, VISMAX, QCORRT, ?Ml , PM200C02300 
COMMON/BL16/ CONSTl, CONST2 , CONST3, CONST4, CONST6, NT, UO, H, UGRT, BUOY, 000024C0 
i CP0,PRT, CONDO, VISO,RHOO, HR, TR,TA,DTEMP,TKRITE,TTAPE,TMAX,GC,RAIR00CC250C 



COOOCICC 

C000C2C0 

00000300 

00000400 

00000500 

00000600 

00000700 

00000800 

00000900 

00001000 

00001100 

00001200 

00001300 

00001400 

00001500 

00001600 

00001700 

00001800 

00001900 

00002000 

00002100 

00002200 



COMMON/3L20/SIG11 (22, 16,32) ,SIG12 (22, 16, 32) , S1G22 (22, 16,32) 
i ,SIG13 (22, 16, 32) ,SIG23 (22,16, 32) ,S1G33 (22,16,32) 

COMMON/3L22/ICHPB(10) ,NCHPI (10) , JCHPB(IO) , NCKPJ ( 10) , KCHPB (10) , 

S NCHPK(IO) ,TCHP(10) ,CPS(10) ,CONS(10) ,WFAN(10) 

COMMCN/3L31/ TOD (22 , 1 6, 32) , ROD (22 , 16, 32 ), POD (22 , 16, 32 ) 

S ,COD (22, 16,32) ,UOD(22, 16,32) ,VOD(22, 16, 32) , MOD (22, 16,32) 

COMMON/3L32/ T(22, 16, 32) ,R (22, 16, 32) , P (22, 16, 32) 

5 ,C(22, 16,32) ,U(22, 16,32) , V(22, 16,32) ,X(22, 16,32) 

COMMON/3L33/ TPD(22, 16, 32) , RPD (22, 16, 32) , PPD (22, 16,32) 

6 ,CPD (22, 16,32) ,UPD(22, 16,32) ,VPD (22, 16, 32) , WPD (22, 16,32) 
COMMON/3L34/ HEIGHT (22, 16, 32) ,REQ (22, 16, 32) , 

i SMP(22,16, 32),SMPP(22, 16,32) ,PP (22, 16, 32) , 

i 0U(22, 16,32) ,DV(22,16,32),DW(22,16,32) 

COMMON/3L36/A?(22, 16, 32) , AE(22, 16,32) , AW (22, 16, 32) , AN (22, 16,32) , 

& AS (22, 16, 32) ,AF (22, 16,32) , A3 122, 16, 32), 

i S?(22, 16,32) ,SU (22, 16,32 ),R1 (22, 16,32) 

COMMON/3L37/ V1S(22, 16,32) ,COND(22, 16,32) , NOD (22, 16,32) , RWALL (£79) 00004200 



00002600 

00002700 

00002800 

00002900 

00003000 

00003100 

00003200 

00003300 

00003400 

00003500 



r\ 
w w 



i ,C?M(22, 16,32) ,HSZ (3,2) ,NHSZ (22, 16,32) ,R£SORM(93) 

COMMONVBL39/NTHCC,CX(12) , CY ( 12 ) , CZ ( 12 ) , NTH ( 12 , 3 ) , TCCU? ( 12 ) 
COMMCN/3L39/ALEW, PCURVE, CONSRA, PCURMl , PSOUTH, QCORR, PERROR 
DIMENSION VFMXC(579,579) ,T4WALL(579) 

DATA N, :TLEFT,£0RMAX,XTIME, ITMAX/2C , 4 00000, C . <0 , C . 0 , 4 / 



C00043CC 

00004400 

00004500 

00004600 

00004700 

00004800 



00005000 

00005100 



c 


ir It ir 




REFERENCE VELOCITY (FT/SEC) , 1 FT/SEC 


SjU ^ ^ \J \J 




It It » 


RHOO 


REFERENCE AIR DENSITY (L3M/FT*«3) 






« It It 


H 


REFERENCE LENGTH (FT) 


00005400 


c 


* W It 


TA 


REFERENCE TEMPERATURE (R) 


00005500 




It V « 


TINIT 


INITIAL TEMPERATURE (0) 




c 


It It It 


O 


GRAVITATIONAL CONSTANT 




c 


It « It 


RAITR 


GAS CONSTANT; 53.34 




c 


« It w 


const: 


RA*U0* *2/GC 




c 


» « It 


CCNST3 


INVERSE OF TA 


00006000 


c 


* It It 


CONST4 


REFERENCE LENGTH (CM) 


00006100 
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'• C0N’ST6 : REFERENCE 7E1CCITY (CM/S) 

'* CCNSRA : ?A**3/ (RA*C?*’JO*H*H) 

'* NTRWR : NTREAL/NWRITE ’NWRITE 

■* NTRWA : NTREAL/NWALT'NWALT 

•' KCONV : HEAT TRANSFER COEFFICIENT ON THE AMBIENT (3TU/H . FT* *2K) 



C 

C 

c 

c 

c 

c 



RAD,H 

CYL 

n: 

NJ 

NK 

NA 

NB 



C HSZ (1, 1) ,HSZ(1,2) 



C 

c 

c 

c 

c 

c 

c 



RADIUS OF THI CYLINDRICAL AND SPHERICAL SECTIONS 
LENGTH OF THE CYLINDRICAL SECTION OF THE TANK 
TOTAL NUMBER CELLS IN THETA-DIRECTION 

R-DIRECTION 
Z AND PHI-DIRECTIONS 
FIRST NUMBER Z-DIRECTION, ALONG THE CYLINDER AXIS00007500 
LAST NUMBER Z-DIRECTION, ALONG THE CYLINDER AXIS00007600 



C00062C0 

C00063C0 

000064C0 

00006500 

00006600 

00006700 

00006800 

00006900 

00007000 

00007100 

00007200 

00007300 

00007400 



:rst and last coord i ante of heat source 

IN X-DIRECTION (IN DIMENSIONLESS FORM) 
HSZ(2,1) ,HSZ(2,2) FIRST AND LAST COORDIANTE OF HEAT SOURCE 

IN Y-DIRECTION (IN DIMENSIONLESS FORM) 
HSZ(3,1),HSZ(3,2) FIRST AND LAST COORDIANTE OF HEAT SOURCE 

IN Z-DIRECTION (IN DIMENSIONLESS FORM) 

ICHPBO : STARTING NODAL NUMBER FOR SOLID IN THETA-DIRECTION 
JCHPBO : R-DIRECTION 

C KCHPBO : Z OR PHI-DIRECTION 

C NCHPIO : NUMBER OF NODALS FOR SOLID IN THETA-DIRECTION 

C NCHPJO : R-DIRECTION 

C NCHPKO : Z, PHI-DIRECTION 

open (21 , f iie=' inpuc .zaz* , scatus=' old' ) 

C &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 

C INPUT DATA & 

C &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 
write (6, *)' calling inout' 

CALL INPUT 

C GENERATE GRID SYSTEM & 

C &&&&&&&& &&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 

write(6,') 'caiiing crid' 

CALL GRID 

C READ VIEW FACTOR INVERSE MATRIX * 

Open (11, f lie V ; ew.cat' , status=' old' ) 

GO 225 iii= , 57 9 

GO 225 579 

225 reaadl,’) vrr^xc ( i i I d - - ) 

CLOSE (11) 

C INITIALIZE THE WHOLE FIELD & 

write (6,*) 'calling ir.it' 

CALL IN IT 

C START CALCULATION & 

c &&&&&&&&& 

NT=C 
NTIM=C 
xtir:e=C . I 
3C0 CONTINUE 

NT=NT-I 



00007700 

00007800 

00007900 

00008000 

00008100 

00008200 

00008300 

00008400 

00008500 

00008600 

00008700 

00008800 

C0008900 

00009000 

00009200 

00009300 

00009400 

00009500 

00009600 

00009700 

0C00980C 

00009900 

u JU iuwtjo 

COOIOICO 

C00102CC 

C00103CC 

A\ ^ r\ A r\ f\ 



OOOllCCO 

OOOlllCO 

00011200 



00011400 

00011500 

00011600 

00011700 

00011800 
r\ r\ ^ 

wWVi/ X ^ 
00012100 

WWW A ^ W w 

WWW ^ . W W 

00012500 

00012600 
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C NTMAXO HAS THE MEANING AS "NTREAL” WHEN IT IS READ FROM 

C DISK OR TAPE. 

I?(XTIME .GT. TMAX) GO TO 303 

NTREAL=NT+NTMAXO 

TIME=TIME+DTIME 

XTIME=TIME*^H/UC 

r.xtirr.e= jint (xtime) 

.ncwrir= jint (twriue) 

write (6,*) 'time in seconds=' , xtime 

write (6,*) ' int time=' , .nxtime 

write (6,*) ' int time for writing=' , ntwrit 

C& &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& &&&&&& 



CALCULATE THE TRANSIENT HEAT INPUT & 
NOTE I? 1 IN PARENTHESIS, T.HE BURN RATE IS CALCULATED & 
3Y THE PRESSURE CURVE. IF EQUAL TO TWO, THE BURN RATE & 
CURVE IS EITHER GIVEN OR ESTIMATED & 



&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& &&&&&&&&&&&&&& 
write(6,*) 'calling calq' 

CALL CALQ (2) 

C START CALCULATION 

ITER=0 

JTERM=0 

JJTERM=0 

C DEFINE THE UPDATED T?Da,J,K), CPD (I , J, K) , RPD <1 , J, K) 

C U?D(I,U,K) AND VPD(I,U, K) FOR THE USE OF CALVIS AND SU<I,J,K) 

DO 48 K=1,NKP1 
DO 48 J=1,NJP1 
DO 48 I=1,NIP1 
T?D(I, J,K)=T(I,U,K) 

C?D(I, J,K)=C(I, J,K) 

R?D(I, J,K)=R(I, J,K) 

U?D<I, J,K)=UC, J,K) 

V?D(I, J,K)=V(I, J,K) 

W?D(I, J,K)=W(T,U,K) 

48 CONTINUE 
29 CONTINUE 

JTERM=JTERM+l 
301 CONTINUE 



C CALCULATE THE RADIATION HEAT FLUX AT EVERY NRAD TIME STEPS & 
C& &&&&£&&&&£&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&£&&&&&&& 

NRAD = 2 

IF (MOD (NT,NRAD) .NE.O) GOTO 4000 
CALL RADHT(T4WALL,VFMXC) 

4000 CONTINUE 

C CALCULATE THE TEMPERATURE 4 

write (6,") 'caiii.ng cait' 

CALL CALT 

C CALCULATE THE SMOKE CONCENTRATION & 

wrlte(6,*) 'cailinc calc' 

CALL CALC 

DO 2C0C J=:,NJP1 



^ ^ r\ ^ 

\J\J\J i 

00012900 

00012900 

00013000 

00013100 

00013200 

00013300 



00013400 



00013500 

00013600 

00013700 

00013800 

00013900 

00014000 

00014100 



00014200 

00014300 

00014400 

00014500 

00014600 

00014700 

00014800 

00014900 

00015000 

C* AA 

00015200 

00015500 

00015400 

00015500 

00015600 

00015700 

00015900 

00015900 

AAA* C.^ ^ 

aaAT C‘ ^ 

\J\j\J XV m. \J 
00016200 
00016300 
00016400 
00016500 

AAAI C. ^ 



«>AA* rQ‘»A 
AAA - rrjAA 



rs r\ f\» • AA 

^ 

00017200 

00017500 

AAA^ '7/'''^ 
\J \J A. I 't \J \J 
aaAI 
sj X I ^ 

AAAI ^ r\ r\ 
\j\j\J X < C O 

00017700 

00017800 

AAA - “ 70 AA 
s> u yy ^ w 



AAAI AAAA 
\J\J \J 

aaa- Q* a a 

^ \J\J ^ ^ 

aaa^ 

00018500 

00018400 



AAA'' O Z A A 

000186«r0 

AAAI AAAA 
W W ^ C > \J 



69 



30 20CC :=i,n:?i 
30 2C00 K=1,N*KP1 

IF(TC,J,K) .LT.TCOOL) T { I , J, K) =TCOOL 
2000 CONTINUE 

C%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%% 
C GLOBLE PRESSURE CORRECTION FOR ENCLOSED TANK AIR % 

C%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%% 
wrii.e{6,*) 'calling globe' 

CALL GLOBE 

C3000 00 003000 @000 00 0000 00 0000 00000000000000000000 00 000000000000 00 
C CALCULATE THE TURBULENT VISCOSITY AND CONDUCTIVITY 0 

C0000 00000000000000 @000 @@@@@@@@@@@00000 @000000000000000000000 @000 
write(6,*) 'calling calvis' 

CALL CALVIS 



C***.*«-*.**. 

C CALCULATE THE DENSITY 



DO 100 J=1,NJP1 

DO 100 I=1,NIP1 

DO 100 K=1,NKP1 

IF (NODd, J,K) .EQ.l) GOTO ICO 

AAAA=BUOY*UGRT* HEIGHT ( I , J, K) 

R(I, J,K) = (UGRT*P(I, J,K) -^(l./EXP (AAAA) ) ) /T(I, J,K) 

100 CONTINUE 

cssssssssssssssssssssssss$$s$$$$s$s$$$$$$$$$$$$$$$ss$$$$ss$s$ss$$ 

C CORRECT CONDUCTIVITY OF THE SOLID $ 

CS$$SSSSS$$SS$SSSSS$$$SS$$$$$$$$$SS$$S$$$$$$$$$$$$$$$$SS$$SSS$$$$ 

:f (nchip.eq.C) goto 4io 

write (6,") 'calling soicon' 

CALL SOLCON 
410 CONTINUE 

C%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%% 
C START PRESSURE CORRECTION ITERATIVE LOOP, IT IS THE MAJOR % 

C PART OF THE ERROR CONTROL ROUTINE % 

C%%%%%% %%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 

:ter=iter-i 

0000000000000 @000 00 0000 @000 @3 @000 @000 0000 @000 @000 @@@@@@@@@3 00 @000 
C CALCULATE THE VELOCITY U,V,AND W 0 

C 3 000 @0000 @00 @003 00 @00000 @@@@@@@@000000000000 @00000 00 @000 @3 00 @3 00 

write (6, ») 'cabling velocities' 
c CALL STRESS 



CALL CALV 

c CALL STRESS 

C *** 

CALL CALW 

write (6, -) ' wfan { 1 ) =' , wfan { 1) 

c CALL STRESS 



CS$$SSSSS$SSSSSS5SSSSSSSSSSSSSSSSSS$$SS$$$$$SS$S$SSSSS$SSSSSSSSSS 
C CALCULATE THE PRESSURE AND STRESS & 
CS$$SSSSS$$SSSSSSSSS$SSSSS$$SSSSSSS$$$S$$S$$SSSSSSSSS$5SSSS5SSSSS 



C0018800 

C0018900 

00019000 

00019100 

00019200 

00019300 

00019400 

00019500 

00019600 

00019700 

00019800 

00019900 

00020000 

00020100 

00020200 

00020300 

00020400 

00020500 

00020600 

00020700 

00020800 

00020900 

00021000 

00021100 

00021200 

00021300 

00021400 

00021500 

00021600 

00021700 

00021800 

00021900 

00022000 

00022100 

00022200 

00022300 

00022400 

00022500 

00022600 

00022700 

00022900 

00022900 



00023100 

00023300 

00023400 

000235C0 

00023600 

00023700 

00023800 

00023900 

r\ rK rs ^ f 

r\ rs r\ r\ 

^ \J SJ ^ 

COC24300 

00024400 



write (6,*) 'calling cal o' 

CALL CALP 
CALL STRESS 

C%% %%%%%%%%%%%%%% %%*o %%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%% %%%%%% 
C IF SOURCE TERM IS LARGER THAN 10.0, STOP PROGRAM % 



rs r\ r\ / ”/^n 
/ r\ 

000247CC 

CC0248C0 
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C%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%% 0C025CCC 





:F (RISORM(ITER) .GT.IC.O) GOTO 2020 


CC0251CC 

C00252C0 

0C0253CC 




ir(RESCRM(IT£R) . L£ . SORMAX) GO TO 49 


0C0254C0 




:?(ITZR .£Q. 1) GO TO 302 


00025500 




:terki=:ter-i 


00025600 




:? (RESCRMdTER) .LE. RESORM(ITERMl) ) GO TO 302 


00025700 




GO TO 304 


00025800 


302 


IF(JTERM .GE. 2) GO TO 37 


00025900 




SOURCE=RESORM(ITER) 


00026000 




GO TO 39 


00026100 


37 


IF(RESORM(ITER) . LE . SOURCE) GO TO 38 


00026200 




GO TO 304 


00026300 


38 


SOURCE=RESORM (ITER) 


00026400 


39 


COXTI.VJE 


00026500 




WRITE (6, 95) ITER, RESORM( ITER) ,SORSUM 


00026600 


95 


FORMAT ( 53X, ' ITER=' , 12 , 2X, ' SOURCE= ' , F9 . 6, 2X, ' SORMUP=' , F9 . 6) 


00026700 




DO 23 :<=1,NKP1 


00026800 




DO 23 J=1,NJP1 


00026900 




DO 23 :=1,NIP1 


00027000 




TPDC, J,K)=T(I, J,K) 


00027100 




CPDC, J,K)=C(I, J,K) 


00027200 




RPDC, J,K)=R(I, J,K) 


00027300 




UPDC, J,K)=U(I, J,K) 


00027400 




VPD(I,J-,K)=V(I, J,K) 


00027500 




WPDC, J,K)=W(I, J,K) 


C00276CC 




PPDC, J,K)=PC, J,K) 


00027700 


23 


CONTINUE 


00027800 




JJTERM=0 


00027900 




IF (ITER .EQ. ITMAX) GO TO 4 9 


000280CC 




IF(JTERM .EQ. 2) GO TO 35 


00028100 




IF (ITER .EQ. 4) GO TO 29 


00028200 


35 


CONTI.NUE 


00028300 




IF(JTERM .EQ. 3) GO TO 58 


00028400 




IF (ITER .EQ, 7) GO TO 29 


00028500 


58 


CONTINUE 


00028600 




JJTERM=C 


00028700 




GO TO 301 


00028800 


304 


CONTINUE 


00028900 




JUTER.y=JJTERM-"i 


\j \j \j 




IF(JJTERM .EQ. 1) WRITE(6,93) ITER, RESORM ( ITER) , SORSUM 


- rs rs 

^ ^ \J 




IF(UTERM .EQ. 1) GO TO 41 


00029200 




IF(JTERy. .EQ. 2 .AND. UUTER.M .EQ. I .AND. ITER .NE. 5) GO TO 41 






ou ... w dz 


\j \j 


L 1 


CONTINUE 






DC 40 ;<=:,NKP1 


r> ^ r. 

\j yj ^ \j \j 




DC 40 » = .,N..?. 


\j \j ^ sj 




DC 40 1=1, nip: 


^ Q f\ 




R(l, J,:0=RPD(I, J,K) 


^ *5 a 




U(I, J,K)=UPD(I, J,K) 


0003C000 




V(I, J,;o=VPD(I, J,K) 


wUUJw.ww 




W(I, J,;<)=WPDC, J,K) 


00030200 




? (I, J,;')=?PD(I,U,K) 


00C3C300 


40 


CONTINUE 






IF (ITER .EQ. ITMAX) GO TO 49 


00030500 




GO TO 29 


\j\J 


82 


CONTINUE 


\j\J\j J \J 1 




DO 43 K=1,NXP1 






DC 43 U=1,NU?I 






DC 43 1=1, nip; 


rs 




T(I,U,;0=TPD(I,U,K) 


o *3 • • '' r\ 
SJ ^ ^ ^ 




v.(*,..,K)=C?...(*,w,K) 


- •yr>.r\ 




R(I, J,X)=RPD(I,U,K) 


r\ r\ n • * 5 '*rs 

^ ^ ^ SJ 




U(I,U,.M)=U?D(I, J,K) 


r\ r\/\ f> 

wuw-D-.-w'w 




V(I,U,;0=VPD(I, J,X) 






W(i, j,;<)=«PD(i,u,x) 


rs r\ n 'i - c.*' 

\J\J ^ 




? (i,u,;<)=p?D(i, j,x) 


^^03* “j ^ ^ 
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(^nn<^('i('i n c:> nn<^(^ 



O CONTINUE 

I: (ITER .EQ. ITMAX) GO TO 4 9 

I?((JTERM .EQ. 3 .AND. ITER .NE. 8) .OR. JJTERM .ES. 2) GO TO 49 
GO TO 301 
49 CONTINUE 



ITERT=ITERT+ITER 

######### ####################»» »«»###?# 
GO TO THE PRESSURE TRACKING SUBROUTINE , PRINT OUT # 

RESULTS :? AT THE RIGHT TIME INTERVAL * 

«##*#« ##«#«###«##«#«*#%> «<#»»#«» 

write (6,*) 'cailinq otracx' 

00032900 

CALL PTRACK 

IF (MOD (r.treaiv NWRP) .EQ.O) CALLOUT(l) 



b%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
FIND TEMPERATURES AT THERMOCOUPLE POINTS AND PRINT OUT % 
IF AT T.HE RIGHT TIME INTERVAL % 

1 %%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%% 
if (nthco.ea.O) goto 2422 
CALL TCP 

IF (MOD (NTREAL,NWRP) .EQ.O) CALLOUT(2) 

2422 CONTINUE 

IF (MOD (.-.xtime,ntwrit) .EQ.O) CALLOUT(3) 

3034100 

:F(NTREAL .EQ. NTREAL/NWRITE'NWRITE) CALL CUT (3) 

505 CONTINUE 

IF( (XTIME-rDT:ME»H/U0) .GE. TMAX) GO TO 277 



CALL TLEFT(IT) 

123 FORMAT(' ITLEFT = ',110) 
IT0=IT 

IF (IT. IT. ITLEFT) CALL OUT(3) 



RESET THE OLD TIME VALUES TOD, ROD, UOD, VOD AND POD. 



DO 305 K=1,NKP1 
DO 305 J=I,NJ?1 
DO 305 I=1,NIP1 



TODd, J,:0=T(I, 


J,K) 


CODd, J,K)=CC, 


w, K) 


RODd, J,K)=RC, 




'joDd, j,:o=*Jd, 


, K) 


voDd, j,:o=v( 




woDd, j,:o=wd, 




?OD(dJdO=?d. 




CONTIKUZ 





C THIS WRITING IS FOR PLOTTINGS ] 

u] ] n i 1 j ] 1 : 1 ]]]]]]’] n : n ]]]]]] 1 1 ] 

c IF(NTREAL . NE . N'"REAL/NTAPE*NTAPE) GOTO 522 

c IWRITE=:0 

c WRITE (9,’) 

c S TIME., NTREAL, T, R, U, V, W, P, CPM, COND , VIS , QRNET, ITERT,QCGRRT, PMI , P.M2 
c i H, TA, UC , CONDO , V : SC , RKOO , NI , N J, NK , N IP I , N JP 1 , NK? i , NIMl , NUMI , NKMl , 
c & XC,YC,2C,XS,YS,7.S,DXXC,DYYC,DZZC,DXXS,DYYS,DZZS 

= WRITE(6,’') 'THE TIME WHEN THE DATA WAS STORED ON DISK IS:', 

0 & XTIME 



522 CONTINUE 



CC031800 

C0031900 

00032000 

00032100 

00032200 

00032300 

00032400 

00032500 

00032600 

00032700 

00032800 



00033000 

00033100 

00033200 

00033300 

00033400 

00033500 

00033600 

00033800 

00033900 

00034000 



00034200 

00034300 

00034400 

00034500 

00034600 

00034700 

00034800 

00034900 

00035000 

00035100 

00035200 

00035300 

00035400 

00035500 

00035600 

00035700 

00035800 

00035900 

00036OC0 

r\rs 

^ OJ sJ 

:CC363CC 

CCC3640C 

CG03650C 

C0C366CC 

C00367CC 

C003680C 

CCC36900 

C0037C0C 

:0C371C0 

CC037200 

:C03730C 

yj ^ I 

00037600 

00037700 

CCC379CC 

CCC380CC 

^ >J 

0C0382CC 

CC0383CC 
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CALL TLEFT(IT) 

IFdT.LT. ITLEFT) GO TO 166 



C TIMREM IS USED TO CALCULATE THE CPU TIME REMAINING AT NPS 

c IF (TIMREM(0. ) .1E.80. ) GOTO 166 

do 222 k=i,nkpl 
do 222 i=l,nipi 
do 222 j=l,njpl 

WRITE (9,555) t(i,j,k),u(i,j,k)^v(i,j,k),w(i,j,k) 



00038400 

00038500 

00038600 

00038700 

00038800 

00038900 

00039000 

00039100 



write (9,555) p(i,j,k), cpm (i, j, k) , cond (ir jr k) , vis (i, j, k) 

222 continue 

write (9,556) time, qr, qcorrt , pml , pm2 , xxxxx 
write (9,556) h, ta, uO, condO , visO, rhoO 

write (9,557) ntreal, ni, n j, nk, nipl , n jpl, nkpl , niml, n jml, nkml, itert 



write (9,556) xc, yc, zc, xs, ys, zs 

write (9,556) dxxc, dyyc, dzzc, dxxs, dyys, dzzs 

555 format ( 4 ( 3x, el2 . 4 ) ) 

556 format (6(lx,el0,3)) 

557 format(lli4) 

REWIND 9 00039200 

GO TO 300 00039300 

303 CONTINUE 00039400 

277 CONTINUE 00039500 

00039600 

WRITE (6, 1111) 00039700 

1111 FORMAT(2X, ' *••••* THE MAXIMUM TIME HAS BEEN REACHED •***•*',18) 00039800 

c GO TO 172 00039900 

00040000 

C 00040100 

c 166 IF (NTREAL .NE. NTREAL/NTAPE*NTAPE) then 

C234567 

do 223 k=l,nkpl 
do 223 1=1, nipl 
do 223 :‘ = l,njpl 



WRITE (9, 5 55) t(l,j,k),u(i,j,k),v(i,j,k),w(i,j,k) 
write (9,555) p(i,j,k), cpm( i , j, k) , cond (i, j,k),vis(i, :,k) 

223 continue 

write (9,556) t ire, qr, qcorrt , pml , pm2 , xxxxx 
write (9, 556) n, ta, uO, conaO, visO , rnoO 

write (9,557) nt real, ni, n j , nk, nipl, n jpl, nkpl , niml, n jml , nkml, itert 

write(9,556) xc , yc, zc, xs, ys, zs 

write (9, 5 5b) cxxc, cyyc, czzc, cxxs, ciyys, dzzs 

REWIND 9 



GOTO 172 
2020 CONTINUE 

WRITE (6,-) 
172 CONTINUE 
STOP 
END 



RESIDUAL MASS IS LARGER THAN 10.0, PROGRAM STOPS' 



n r\ n A r\n ^ r\ 

00040800 

0C04090C 

00041000 

00041100 

00041200 

00041300 

00041400 

00041500 

00041600 

00041700 



bu3ROUT..N:L *\?UT 






00041900 


THIS SUBROUTINE SETS UP 


REQUIRED VALUES TO 3EGIN TH 


;E PROGRAM. 


0004 200o 
•00042100 


VARIABLES ARE: 
KRUN 


WHEN EQUAL TO ONE, READ ? 


■ROM THE 


•00042200 

•00042300 




RESTART DISK, ELSE EROM 


T;*.E JCL 


•00042400 


NCHIP 


NUMBER OF SOLID PIECES 




•00042500 


NWRP 


NUMBER OF TIME STEPS TO 


WRITE ON THE 


•C0042600 




PAPER 




-00042700 
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XTHCO 

7MAX 

TWRITE 

TTAPE 

DTIME 

HSZ 

ICHPB 

JCHPB 

KCHPB 

NCHPI 

NCHPJ 

NCHPK 

CX,CY,CZ 



NUMBER OF THERMOCOUPLES TO PRINT OUT 
MAXIMUM TIME ALLOWED (REAL) 

SECONDS IN REAL TIME TO PRINT THE 
P,V,T FIELDS ON PAPER 
TIME INTERVAL TO WRITE ON THE TAPE 
TIME STEP (DIMENSIONLESS) 

HEAT SOURCE SIZE, USED TO CALCULATE 
THE VOLUME OF THE FIRE CELL 
FIRST SOLID NODE IN THETA DIRECTION 
FIRST SOLID NODE IN R DIRECTION 
FIRST SOLID NODE IN PHI DIRECTION 
NUMBER OF NODES IN THETA DIRECTION 
NUMBER OF NODES IN R DIRECTION 
NUMBER OF NODES IN PHI DIRECTION 
THERMOCOUPLE POSITIONS IN THETA, R, PHI 



'C0042SD0 

•OOO'SSCCC 

•OOOOIOC 

'0004320C 

'000433CC 

'C00<3<00 

•00043530 

■0004360C 

•00043700 

•000438CC 

•00043900 

•000440CC 

•000441C0 

•000442C0 

•00044300 

00044400 

00044500 

00044600 

00044700 

00044800 

00044900 

00045000 



CCMMON/?14/XC(93) ,YC(93) ,ZC(93),XS(93),YS(93),ZS(93) , 

& DXXC(93),DYYC(93) ,DZZC(93) ,DXXS(93) ,DYYS(93) ,DZZS(93) 

COMMON/ BL 1/DX,DY,DZ, VOL , DTI ME , VOLDT , THOT , TCOOL , P I , Q , QR 
C0MM0N/3L7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 
4 , NIP2 , N JP2 , NKP2 , NA, NAP 1 , NAMl , NB , NBP 1 , NBMl , KRUN , NCHIP , N JRA, NWRP 

CCMMON/3L12/ NWRITE, NTAPE, NTMAXO, NTREAL, TIME, SORSUM, ITER 
COMMON/3L14/HCOEF,TINF,CNT, ABTURB,BTURB,VISL, VISMAX,QCORRT, PMl, PM200045'.00 
CCMMON/5L16/ CONSTl , CONST2, CONST3 , CONST4 , CONST6, NT, UO , K, UGRT, BUOY, 00045200 
4 CPO, PRT, CONDO, VIS0,RHO0,KR,TR,TA,DTEMP, TWRITE, TTAPE, TMAX,GC,RAIRC0C45300 
COVMON/5120/STGll (22, 16,32) ,SIG12 (22, 16,32) ,SIG22 (22, 16,32) 0004 5400 

4 ,SIG13(22,16,32),SIG23(22,16,32),SIG33(22,16,32) 00045500 

C0MMON/3122/ICHP3(10) ,NCHPI(10) , JCHPB (10) , NCHP J ( 10) , KCKP3 ( 10 ) , 00045600 

4 NCHPK(IO) ,TCHP(10) ,CPS(10) ,CONS (10) ,WFAN (10) 00045700 

CCMMON/3L31/ TOD (22, 16, 32) , ROD (22, 16, 32) , POD (22, 16, 32) 00045800 

4 , COD (22, 16,32) ,UOD (22, 16,32) ,VOD (22, 16,32) ,WOD (22, 16,32) 00045900 

CCMMON/3L32/ T(22, 16, 32) , R(22, 16, 32) , P (22, 16, 32) 

4 ,C(22, 16,32) ,U (22, 16, 32), V (22, 16,32) ,W (22, 16,32) 

COMMON/3L33/ T?D(22, 16, 32) , RPD (22 , 16, 32) , PPD (22 , 16, 32) 

4 ,CPD(22, 16,32) ,U?D (22, 16,32) ,VPD(22, 16,32) ,WPD(22, 16,32) 

CCMMON/3134/ HEIGHT (22, 16, 32) , REQ (22, 16, 32) , 

4 SMP(22, 16, 32) , SMPP (22, 16 , 32) , PP (22, 1 6, 32 ) , 

4 DC (22, 16,32) ,DV (22, 16, 32),DW(22, 16,32) 

CCMMON/3136/AP (22, 16, 32 ) , AE (22 , 16, 32 ) , AW (22 , 16, 32 ) , AN (22, 16, 32) , 

4 AS (22, 16, 32) ,AF(22, 16, 32) , AB (22 , 1 6, 32) , 

4 S? (22, 16, 32) , SU (22, 16, 32) , RI (22, 16, 32) 

CCMMON/3137/ VIS (22, 16, 32) ,COND(22, 16, 32) , NOD (22 , 1 6, 32) , RWALL (579) 00047000 
4 ,C?M(22, 16, 32) , HSZ (3,2) ,NHSZ (22, 16,32) ,RESORM(93) 0004711: 

CCy.MON/3138/NTKCO,CX(12) ,CY(12) , CZ ( 12) , NTH ( 12, 3 ) , TCOC? (12) 00047210 



C004610C 

00046200 

00046300 

00046400 

00046500 

00046600 

00046700 

00046SOO 

>^0046!?>,'^ 



*1. P.IAD IN DATA TC INDICATE EITHER KRUN = 0 OR 1 
READ(21, •) KRUN, NCH:?, NWRP, NTHCO 

#2. READ IN DATA SET 1 - 6 DATA 

READ (21, •) TMAX, TWRITE, TTAPE, DTIME 

#3. READ IN DATA FOR HEAT SOURCE 




^ / “•'O'* 
»• ^ 

^ . - - 
Z " 

^ \J\J ^ 

- A « f ~i r 
^ ^ sj . ' C - 
A A A / “7 *7 

CCC478: 

AAA / ”> 2 

\j\j\jH • > - 
A A A / Q ^ 
^ ^ C w ^ 

A A A /• Q “ A 
w V/ w n 3 . W 

:cc482: 

)CCC463: 

CCC484: 

C w 



& 


'NSICNAL W:TH 


RESPECT 


TC RAD 


lUS) ' , 




:cc486:: 


& 


/,5X,'FROM 


',~8.4,' 


’ TO 


' ,F8.4, ' 


IN X-DIRECTICN' , 


•'AA/QA-^ 

-J 


& 


/, 5X, ' FROM 


' ,R8.4, ‘ 


’ TO 


',F8.4,' 


IN Y-DIRECTICN' , 


:co48s:: 


& 


/ , 5X, ' FROM 


' ,?8.4, ' 


' TO 


' ,F8.4,' 


IN Z-DIRECTICN' , /) 





C “4. READ DECK DATA 

IF (NCHIP.EO.O) GOTO 16 
PRINT ' 



A A / A « ^ 

A A A ^ A * " 
^ \J H ^ 

^ ^ SJ h ^ ^ ^ 

:cc49i: 

CCC494: 

CCC495: 
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PRINT THE REGION BOUNDED BY SOLID' 

DO 19 N=1,NCHIP 

READ (21,*) ICHPB(N),NCHPI(N),JCHPB(N),NCHPJ(N),KCH?3(N), 

& NCHPK(N) ,TCHP (N) ,C?S (N) , CONS (N) , WFAN (N) 

WRITE (6,10) N, ICHPB(N) ,NCHPI (N) , JCHPB(N) ,NCH?J(N) ,KCHPB(N) , 

& NCHPK(N) ,TCHP (N) , CPS (N) , WFAN (N) , CONS (N) 

10 FORMAT (2X, 'N= ',12,' ICHPB= ',12,' NCHPI= ',12, ' JCHPB= ',12, 
&' NCHPJ= ',12, ' KCHPB= ',12,' NCHPK= ',12, ' TCHP= ',F8.5, 

&' C?S= ',F8.5,/, ' WFAN = ',F12.5,' CONS= ',F12.5,/) 

19 CONTINUE 
16 CONTINUE 

write (6, • ) ' nchip=' , nchip 

if (nthco.eq.O) goto 119 
#5. INPUT THERMOCOUPLE COORDINATE 

IN TERMS OF X (THETA) , Y (RADIUS) , Z (PHI ) 



PRINT * 

PRINT *, ' 

PRINT * 

DO 110 I=l,NTHCO 
READ (21,*) CX(I) ,CY(I) ,C2 (I) 
WRITE (6,*) I, CX(I) ,CY(I) ,C2 (I) 
110 CONTINUE 
119 continue 
RETURN 
END 



THERMOCOUPLE POSITION IN TERMS OF THETA, R, PHI' 



C00496CC 

000497CC 

00049800 

00049900 

0005000C 

00050100 

00050200 

00050300 

00050400 

00050500 

0005C600 

00050700 

00050800 

00050900 

00051000 

00051100 

00051200 

00051300 

00051400 

00051500 

00051600 

00051700 

00051800 

0005190C 

00052000 

00052100 

0005220C 

00052300 

00052400 



SUBROUTINE IN IT 






' C0052500 
0005260C 








' C005270C 








» 00052800 


THIS SUBROUTINE 


INIT 


lALIZES THE FIELD AND CONSTANTS WITH RESPECT 


•00052900 


TO INITIAL START 


OR 


RESTARTING CAPABILITY. 


•00053000 


VARIABLES ARE : 






*00053100 


TIME 


= 


DIMENSIONLESS TIME 


•000532CC 


jO 


= 


CHARACTERISTIC VELOCITY (1 FT/SEC) 


•00053300 


H 


= 


CHARACTERISTIC LENGTH (RADIUS ( 9 . 6FT) ) 


•C005340C 


TR 


= 


TEMP IN DEGREES KELVIN 


*00053500 


TA 


= 


TEMP IN DEGREES RANKINE 


*00053600 


VISO 


= 


REFERENCE VISCOSITY (NONDIM) 


*00053700 


VISL 


= 


MINIMUM VISCOSITY (NONDIM) 


•0005380C 


VISMAX 


= 


MAXIMUM VISCOSITY (NONDIM) 


*00053900 


HR 


= 


RADIUS IN CM 


*00054000 


CONDO 




REFERENCE CONDUCTIVITY 


*00054100 


rs 
w kJ 


= 


INITIAL SMOKE CONCENTRATION 


*00054200 


NJRA 


= 


POINT OF RADIATION IN U DIRECTION 


*00054300 






LOCATED ON THE INNER SOLID BOUNDARY 


*00054400 


HCONV 


= 


HEAT TRANSFER COEFFICIENT 


-00054500 


HCOEF 




DIMENSIONLESS HEAT TRANSFER CCEF 


*00054600 


CONSTl 


= 


USED TO NONDIMENSIONALIZE PRESSURE 


*00054700 


RHOO 


= 


REFERENCE DENSITY 


*00054800 


GC 


= 


GRAVITY CONSTANT 


*00054900 


BUOY 


= 


BUOYANCY FORCE CONSTANT 


•00055000 


UGRT 




PERFECT GAS LAW NONDIMENSIONAL CONSTAN' 




C?0 


= 


REFERENCE SPECIFIC HEAT 


*00055200 


NWRITE/ 


= 


NONDIMENSIONAL FORMS OF TWRITE AND 


*00055300 


NTAPE 




TTAPE 


*00055400 


MATRICES OF THE F 


ORM 




*00055500 


_OD 




DIMENSIONLESS PARAMETER AT OLD TIME 


*00055600 




= 


DIMENSIONLESS PARAMETER 


*00055700 


“?D 


- 


UPDATED DIMENSIONLESS PARAMETER 


*00055800 


WHERE THE PARAMET 


'ER5 


ARE 


*00055900 


U,V,W 




VELOCITY IN THETA, R , PHI DIRECTION 


*00056000 


*:,?,c 




TEMP, PRESSURE, AND SMOKE CONCENTRATION *00056130 



*00056200 
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DV,DV,DZ 

pp 

3" 

S? 

A? 

AE, AW, AN 

AS, AF,AB 

3MP 

S.XPP 

CPM 

VIS 

COND 

NHSZ 

NOD 

REQ 

NIPl 

XC,YC,ZC 

DXXC,DYYC 

DZZC 

XS, YS, ZS 

DXXS,DYYS 

DZZS 

CX,CY,CZ 



USED IN PRESSURE CORRECTION SUBROUTINE '00056300 

CORRECTED PRESSURE (P' ) *00056400 

SOURCE TERM '00056500 

TERM AT ? NODAL POINT FOR BOUNDARY *00056600 

CONDITIONS *00056700 

COEFICIENT AT NODAL POINT *00056800 

COEFICIENTS AT PTS EAST, WEST, NORTH, *00056900 

SOUTH, FRONT, AND BACK *00057000 

RESIDUAL MASS SUMMATION OF NODAL POINT *00057100 

LENGTH SCALE FOR TURBULENCE *00057200 

MEAN SPECIFIC HEAT *00057300 

VISCOSITY *00057400 

CONDUCTIVITY MATRIX *00057500 

WHEN THIS VALUE EQUALS ZERO, THERE IS *00057600 

NO HEAT SOURCE LOCATED AT THE NODE *00057700 

IF EQUAL TO ZERO, LIQUID *00057800 

IF EQUAL TO ONE, SOLID *00057900 

BEGINNING AND ENDING NODAL POINT FOR *00058000 

THE SOLID IN I,J,K *00058100 

DENSITY AT EQUILIBRIUM 
NODAL POINT IN I PLUS 1 
THETA, R, PHI LOCATION OF NODAL POINT OF 
A CENTER CELL 

LENGTH AROUND THE CENTER CELL 



THETA, R, PHI LOCATION OF NODAL POINT OF 

A STAGGERED CELL 

LENGTH AROUND THE STAGGERED CELL 



*00058200 
(OTHERS SIMILAR) 00058300 
00056400 
00058500 
00058600 
00058700 
00058800 
00058900 
00059000 
*00059100 

LOCATION OF THERMOCOUPLE IN THETA, R, PHI *00059200 

*****00059300 

COMMON/ R4/XC (93) , YC (93) , ZC ( 93) , XS (93) , YS ( 93 ) , ZS (93) , 00059400 

& DXXC(93) ,OYYC(93) , DZZC (93) ,DXXS (93) ,DYYS(93) , DZZS (93) 00059500 

COMMON/BLl/DX,DY, DZ , VOL, DTIME, VOLDT, THOT, TCOOL, PI , Q, QR 00059600 

COMMON/3L7/NI,NIPl,NIMl,NJ,NJPl,NJMl,NK,NKPl,NKMl 00059700 

& , NIP2,NJP2, NKP2,NA,NA?1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP 00059800 

COMMON/BL12/ NWRITE, NTAPE, NTMAXO, NTREAL, TIME, SORSUM, ITER 00059900 

C0MM0N/3L14/HC0EF,T:NF,CNT,ABTURB,BTURB,VISL, VI SMAX,QCORRT,PM1,PM2000 60000 
COMMON/3L16/ CONST! , CONST2, CONST3, CONST4 , CONST6, NT, UC, H, UGRT, BUOY, 00060100 
& CPO, PRT, CONDO, Vise, RKOC, HR, TR, TA, DTEMP, TWRITE, TTAPE, TMAX, GC, RAIR0C060200 
COMMON/BL20 /S:g;: ( 22, 16,32) ,SIG12 (22, 16,32) ,SIG22 (22, 16,32) 00060300 

i ,3IG13(22,16,32),SIG23(22,16,32),SIG33(22,16,32) 00060400 

COMMON/3L22/:cHPB(10) ,NCHP: (10) , JCHPB(IO) ,NCHPJ(1C) ,KCHPB(10) , 00060500 

i NCHPK (10) ,TCH? (10) , CPS(IC) ,CONS (10) ,WFAN(10) 00060600 

CCMMON/5L31/ 7CD(22, 16, 32 ) , ROD (22 , 1 6, 32 ) , POD (22 , 16, 32 ) 00060700 

5 , CCD (22, 16,32) , 000(22, 16, 32) , VCD (22, 16, 32) , WOO (22, 16, 32) 00060800 

CCMMON/HL32/ ' (22 , 1 6, 32) , R (22, 16, 32) ,’? (22, 16, 32 ) 00060900 

i , C (22, 16, 32) ,0 (22, 16, 32) ,V (22, 16, 32) ,W (22, 16, 32) 00061000 

COMMON/3L33/ 720(22, 16, 32) , RPD (22 , 16, 32 ) , PPD (22 , 1 6, 32) 00061100 

6 ,CPD(22, 16, 32) ,U?0 (22, 16,32) ,V?D (22, 16,32) ,W?D (22,16,32) 00061200 

C0MM0N/3L34/ HE IGHT (22 , 16, 32) , REQ (22 , 1 6, 32) , 00061300 

i 3MP (22, -.6, 32) , SMPP (22, 16,32) ,P? (22, 16, 32) , 00061400 

& DU (22, 16, 32) ,0V(22, 16, 32) ,DW(22, 16,32) 00061500 

COMMON/3L36/A?(22, 16,32) , AE(22, 16,32) ,AW(22, 16, 32) , AN (22, 16,32) , 00061600 

& AS(22, 16, 32) ,AF(22, 16,32) ,A3(22, 16,32) , 00061700 

i S? (22, 16, 32) ,SU(22, 16, 32) ,RI (22, 16,32) 00061800 

COMMON/5L37/ VTS(22, 16, 32) , COND (22, 16, 32) , NOD (22, 16, 32) , RWALL (579) 00061900 

00062000 
00062100 
00062200 
00062300 
00062400 

sj U ^ 

C CO 62 6C C 
C0C627CC 
C0C628CC 
0006290C 
CC06300C 



& ,C?X(22, *.6,52) ,H3Z(3,2) ,XHSZ(22, 16,32) ,R£SORX(93) 

COMMONVB138/NTHCO,CXC2) , CY ( 12) , CZ ( 12 ) , NTH (12, 3) , TCCU? (12) 
COMMON/3139/ALEW, PC'JRVE , CCNSRA, PCURMl ,? SOUTH, QCORR, PERROR 
DATA GRAV/32.:// 



INTRODUCE 

t:me=c. 

TR=TA/1 .3 
H=9.6 

v:so=v:sc/uC/ 



;:VEN PARAMETERS 
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v:sL=v:so 

V:SMAX=400.*VISL 

HR=H*30.48 

CONDC=VISO/PRT 

?I=4.*ATAN(1.) 

ALEW =1.0 

NJRA=15 



THE HEAT TRANSFER COEFFICIENT IS IN BTU/HR/FT* *2/F 

:-;coNv=i5.o 

HCOEF=HCONV/ (3600 . »CPO*RHOO *U0) 

^ ^ rs 

w \j — ^ • w 



CONST1=RHOO*UO*UO/ (GC*14 . 696*144 . ) 

CONST3=l .B/TA 

CONST4=H*30 .48 

CONST6=U0*30.48 

NTMAXC=0 



3UOY=GRAV*H/ (U0*U0) 

•JGRT=C0*U0/ (GC*RAIR*TA) 

TCOOL=1.0 

CONSRA=TA*TA*TA/ (RHO0*CP0*U0*3600.) *1 .714E-9 

'/.’RITE (6,200) TR, CONDO, VIS0,CP0, HR, DTIME,HCONV 
200 FORMAT (5X, 'THE REFRENCE TEMPERATURE AND THERMAL PROPERTIES',/, 
i /,5X, 'T = ',F10.4,'K, CONDO = ',E12.6, 

S /,5X,'VIS0 = ',E12.6,' CPO = ',E12.6, 

S /,5X, 'RADIUS = ',£12.6,' CM', 

5 /,5X, 'DTIME = ' ,E12.6, 

6 /,5X, 'HCONV = ' ,E12.6,/) 

NWRITE= jint (TWRITE*UO/DTIME/H) 

0066400 

N'TAPE=^i.'-.:; (TTAPE*UO/DTIME/H) 

0066500 



^ \J 

CC06320C 

CC063300 

CC06340C 

C006350C 

C00636C0 

30063700 

CC0638CC 

C0063900 

00064000 

00064100 

00064200 

00064300 

00064400 

00064500 

00064600 

00064700 

00064800 

00064900 

00065000 

00065100 

00065200 

00065300 

00065400 

00065500 

00065600 

00065700 

00065800 

00065900 

00066000 

00066100 

00066200 

00066300 



PRINT OUT INPUT INFORMATION 


f \J sj 


■/.’R I TE ( S , 6 1 ) ( ST AR , I = i , 9 0 ) , KRUN , TMAX , T!iJR I TE , TT AP E , NWRP 


00066800 


F0RMAT(///,90A1,/,5X, 'KRUN =', I2,/,5X, 


000669\^0 


'TMAX =',F8.3,' SECONDS' ,/5X, 'TWRITE =',F8.3, 


^ sjsjO / 


' SECONDS', /,5X,'7TAPE =',F8.3,' SECONDS', 


r\ rn - ^ 


/,5X,' NUMBER INTERVALS OF WRITING ON PAPER ', 15,/) 


• c.\j 

\J \J V • Z ^ SJ 


INITIALIZE VARIABLE FIELD 


00067400 


• 


•a ^ ^ 


TC 22 C J=1,NJP1 


00067 600 


TO 220 I=:,NIP1 


'''''' '' '' 


TO 220 K=1,NKP1 


1 C\Jsu 


ROD(I,J,K)=l. 


00067900 


R(I,J,K)=1. 


r\r\r<.^Qr\r\r\ 
sj vO ^ 'ij 


R?D(I,T,K)=1. 


r\ r\ r Q * /^r^ 


•TOD(I,T,K)=0. 


/^ CQ 0'^ 


•T(i,j,:o=o. 


rs r> CO ^ ^ 

sJ \J OO \J 


'TPDC, J,K)=0. 


^ r\ r> 


•/OD(I, J,K)=C. 


\J OO ^ <>j >j 


•/(I,T,K)=0. 


00068600 


•/?D(I, J,K)=0. 


00068700 


■.V(I,J,K)=0. 




V;?D(I,T,K)=0. 




■/:OD(I,T,K)=0. 


^ sj yj ^ 


?ODC,T,K)=0. 


00069100 


? (i,T,;o=o. 




P?D(I,T,K)=0. 




T'T(I,T,.K)=0. 




TV(I,T,K)=0. 


00069500 


T'/.’(I,T,X)=0. 


00069600 
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S'J ( I , J, K) =0 . 

S?(I, J,K)=0. 

??(I, J,K)=0. 

A?(I, J,K)=0. 

AW(I, J,K)=0. 

A£(I, J,K)=0. 

AN(I, K)=0. 

AS(I, J,K)=0. 

Ar (I, J,K)=0. 

AB(I, J,K)=0. 

SMP (I, J,K)=C. 
SMPP(I,wMO=0. 

VIS(I, J,K)=VISL 
CONDd, J,K)=CONDO 
CPMd, J,K)=1.0E0 
TCDd, J,K)=1.CE0 
T{I, J,K)=TOD(I, J,K) 
TPDd, J,X)=TOD(d J,K) 
COD (I, J,K)=C0 
C(I, J,K)=COD(I, J,K) 
CPDd, J,K)=COD(I, J,K) 
NHSZd, J,K)=0 
NODd, J,K)=0 
220 CONTINUE 



**• DETERMINE THE POSITION OF HEAT SOURCE 

DO 300 1=2, NI 
DO 300 J=2,NJ 

CHANGE TO RECTANGULAR COORDINATES 
XX=YC (J) *COS (XC (I) ) 

YY=YC(J)*SIN(XC(D) 

CHECK TO SEE IF IN HS CONTROL VOLUME, IF SO SET NHS2=: 
IF (XX.LT.HS2 d, I) .OR.XX.GT.HS2 (1,2) > GOTO 310 
IF (YY.LT.H52 (2, I) .OR.YY.GT.HS2 (2,2) ) GOTO 310 
NHS2d, J, 16)=1 
NHS2(I, J, 17) = : 

315 FORMAT (2X, 10 (^X, , 2X, I< ) ) 

GOTO 300 

.3 A. C ^\^NTiN-^w 

300 CONTINUE 



•** DEFINE t:*:ermal properties of deck and solid 

IF (NCHIP.EO.O) GOTO 410 
DO 402 N=1,NCHI? 

I3=ICH?5(N) 

IE=IB-NCH?I (N)-l 
JB=JCH?3(N) 

JE=JB•^NCH?J(N)-: 

:<B=KCH?B(N) 

KE=K5-NCH?K (N) -1 
DO 405 1=13, IE-: 

DC 405 J=J5,JE-1 
DO 405 K=K3,KE-1 
COND d, J, K) =CONDC *CONS (N) 

C?M(I, J,K)=C?C*CPS (N) 

NOD (I,U,K)=1 
405 CONTINUE 
402 CONTINUE 
410 CONTINUE 



00069700 

00069800 

00069900 

00070000 

00070100 

00070200 

00070300 

00070400 

00070500 

C0070600 

000707C0 

00070800 

00070900 

00071000 

00071100 

00071200 

C0071300 

00071400 

00071500 

00071600 

00071700 

00071800 

00071900 

00072000 

00072100 

00072200 

00072300 

00072400 

00072500 

00072600 

00072700 

00072800 

00072900 

00073000 

00073100 

00073200 

00073300 

00073400 

00073500 

00073600 

00073700 

00073800 

00073900 

00074000 



00074100 

ovsj / 

\j \j t *■: 

00074400 



« o “7 / 

\j\J / 

00074600 

00074700 

C00748C0 

00074900 

00075000 

00075100 

00075200 

r\ r\ r\ n z, "1 r\ 
wwvy i ^ ^\j \J 

wwO I D sJ 

^ ^ \J 

r\r\n Z ^ 

Sj\J\J < C ^ 



r\ r\ r\~! Z~) ^ 

\J\J \J / ^ / wv 



\j <j / ^ 




rs r\ r\ 



00078200 

00076300 

wwsj / Q*twsj 
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: *** FOR CC:CTINoIKG RUN, READ DATA FROM TAPE OR DISK 

:?(KRUK .£Q. 1) GO TO 9997 
GO TO 15 

9997 GO 222 k=i,nKpi 
GO 222 i=l,nipi 
GO 222 j=l,njpl 

read (9, 555) t(i,j,k),u(i,j,k)rV(i,j,k),w(i,j,k) 
reaa (9,555) p(i,j,k), cpm( i, j, k) , cond (i,j,k),vis(i,j,k) 
222 cor.Lir.ue 



C0076530 

C0076600 

C00767CC 

000768CO 

C00769C0 





read (9, 556) t i.*ne, qr , qcorrc, pml, pm2, xxxxx 
read (9, 55 6) xxn, xxta, xxuO , xxcondO , xxvisO, xxrhoO 

read (9, 557) ncreal, ni, n j , nk, nipl, n jpl , nkpl, niml , n jml , nkml , itert 

read (9, 556) xc, yc, zc, xs , ys, zs 

read (9,556) dxxc, dyyc, dzzc, dxxs, dyys, dzzs 




555 


formal. (4(3x,el2.^)) 




556 


formal. (6 (lx,elC .3) ) 




557 


format ( 1114 ) 
REWIND 9 

WRITE(6, *)NTMAX0 


00077800 


15 


CONTINUE 


00077900 

00078000 

00078100 


r* * * # 


DEFINE HEIGHT OF NODE POINTS AND COMPUTE HYDROSTATIC 


00078200 


r* 


EQUILIBRIUM DENSITY REQ(I,J,K) 


00078300 

00078400 

00078500 




DO 13 K=1,NKP1 


00078600 




DO 13 1=1,NIP1 


00078700 




DO 15 J=1,NJP1 


00078800 




DHY=YC(J> »SIN(XC(I) ) *SIN’ (ZC (K) ) 


00078900 




HEIGHT C,J,K)=DHY 


00079COC 


13 


CONTINUE 


00079100 




DO 229 J=1,NJ?1 


00079200 

00079300 




DO 229 ;=i,n:?i 


00079400 




DO 229 K=1,NKP1 


00079500 




AAAA=-RUOY-^UGRT*HEIGHTC, J,K) 


000796CC 




REQC, J,K)=EX? (AAAA) 


00079700 




IFCKRUN .NE. 0) GO TO 229 


00079900 




RPD ( : , J, K ) =REQ ( : , J, K) /TPD ( 1 , J, K) 


00079900 




ROD(l, J,K)=R?DC, J,K) 


f\ n f\ r\ r\ rs 




RC, J,K)=RPDC, J,K) 


f\ fS nr\ • r\ 

vWUOU.wXii/ 


229 


CONTINUE 


00080200 
r\ rs rs n r\ r\ fs 

r\ r\ Q r> / ^ 


WWW 


INITIALIZE U,V,T,R,P FIELD 






DO 210 k=i,nkp: 


r\ r> r> Q ^ ^ r\ r\ 
wvviyOUCws/ 




DO 210 u=i,njp: 


OU < V w 




DO 210 i=i,n:?i 


CC0808CC 




T(I,U,K)=TOD(I,U,K) 


D008O9C0 




C(I, J,K)=CODC,U,K) 


r> r\ 




R(I, J,K)=ROD( :,U, K) 


^ ^ OO “ - ^ 

^ KJuO ^ ^ KJ 




U{:,U,K)=UODC,U,K) 


Q • r\ 




VC, J,K)=VODC,U,K) 


n ry r\ Q * •y o r\ 
\J \J WO 1 ^ \J 




w(:,j,K)=woD(:,u,K) 


r> r\ ry n - / r>r> 




?(I,U,K)=PCDC,U,K) 


ry ry ry Q • Z, ^ 


210 


CONTINUE 


ry ryry Q • 

00081700 


WWW 


FOLLOWING :S FOR DETERMINING THE THERMOCOUPLE POSITIONS 


00081800 

^ 




DO 5000 N=l,NTHCO 


^^0820*^^ 




DC 5CCI I=1/N!?I 






;r (XC(I) .LT.CX(N) .AN'D.XC(I-l) .GE.CX(N) ) GOTO 50C2 


G0082200 


~ ^ 
w w w ^ 


^ ^ ^ 


00082300 


- rt 




00082400 
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5003 

5004 



5003 J= 
(YC(J) , 



:,Nsjpi 

IT.CY(N) 



DO 5005 K=1,NKP1 
Z? (ZC(K) .LT.cz (N) 

5005 CONTINUE 

5006 KK=K 
NTH(N, :)=:i 
NTH(N,2)=JJ 
NTH(N,3)=KK 

5000 CONTINUE 



AND. YC (J+1) .GE.CY (N) ) GOTO 5004 



.AND. ZC (K+1) .GE.cz (N) ) GOTO 5006 



00082600 

00082700 

00082800 

00082900 

00083000 

00083100 

00083200 

00083300 

00083400 

00083500 

00083600 

00083700 



00083900 

00084000 

.RETURN 00084100 

END 00084200 

00084300 

C 00084400 

C 00084500 

SUBROUTINE CALVIS 00084600 

00084700 

C **• * * 00084800 

- THIS SUBROUTINE CALCULATES THE TURBULENT VISCOSITY AND UPDATES* 00084900 

* T.HE VISCOSITY MATRIX * 00085000 

* * C0085100 

00085200 

COMMON/R4/XC(93) , YC(93) , ZC ( 93 ) , XS ( 93 ) , YS ( 93 ) , ZS ( 93) , 00085300 

& DXXC (93) ,DYYC (93) ,DZZC (93) , DXXS (93) ,DYYS(93) ,DZZS (93) 00085400 

COMMON/BL7/NI,NIPl,NIMl,NJ,NJPl,NJMl,NK,NKPl,NXMl 00085500 

& ,NIP2,NJP2,NXP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCH:P,NJRA,NWRP 00085600 
COMMON/BL14 /KCOEF, TINF, CNT, ABTURB, BTURB, VISL, V:SMAX,QCORRT, PMl, ?.M2000857Cb 
COMMON/BL16/ CONSTl , CONST2, CONST3 , CONST4 , CONST6 , NT, UO , H, UGRT, BUOY, 00085800 
& CP0,PRT, CONDO, VIS0,RHO0, HR, TR,TA, DTE.MP , TWRITE, TTAPE, TMAX, GC , RAIR00085900 
COMMON/BL32/ T (22, 1 6, 32) , R (22, 16, 32) , P (22 , 16, 32) 00086000 

& ,C(22, 16,32) ,U (22, 16,32) ,V (22, 16,32) ,W(22, 16,32) ‘ 00086100 

COMMON/BL34/ HEIGHT(22, 16,32) ,REQ(22, 16,32) , 00086200 

& SMP (22, 16, 32) , S.MPP (22, 16 , 32 ) , PP (22 , 1 6, 32) , 00086300 

& DU(22, 16, 32) ,DV(22, 16, 32 ) , DW (22 , 16,32) 00086400 

COMMON/BL36/A? (22, 16, 32 ) , AE (22, 1 6 , 32) , AW (22 , 1 6, 32 ) , AN (22, 16 , 32) , 00086500 

& AS (22, 16,32) ,AF (22, 16, 32) , AB (22 , 16, 32) , 00086600 

& SP (22, 16,32) ,SU(22, 16, 32) ,RI (22, 16,32) 00086700 

C0MM0N7BL3 7/ VIS (22, 16, 32) ,COND (22, 16,32) , NOD (22, 16, 32) , RWALL (579) 00086800 
& ,C?M(22, 16,32) ,HSZ (3,2) ,NHSZ (22, 16,32) ,RESORM(93) 00086900 

r\ Q 'l f\ r\ rs 
\J \J\J O I \/ 

^ Q~} ^ ^ ^ 

wwWC • 

C CALCULATE LOCAL SHEAR AND VISCCSIT'Y V:SC,J,K) 00087200 

C 00087300 



SPECIFY LOCAL TURBULENT LENGTH SCALES S.MPP ( I , U, K) 



DO 611 K=2,NK 

KP2=K^2 

KP1=K-1 

KM1=K-1 

KM2=K-2 

DO 611 J=2,NU 

J?2=J^2 

J?1=J-1 

UM1=J-1 

U.M2=J-2 

DO 611 1=2, n: 

I?2=I-2 



IM1=I-1 
:.M2 = I-2 

IF (I.EQ.2) :>:2=N:y.i 

IF (I.EC.NI) :P2-3 
IF (NOD(I,U,K) .FQ.l) GOTO 611 



00087400 

^^■>>1^87 

00087600 

00087700 

00087800 

00087900 

^ r> r\Q Q • 
r- 

yj \J O O -J sj 

sjsjOO^\jyj 

00088600 
wwwOO • yj yj 

^ rs n Q r\ 

^ ^ f\ Q ^ 

CCC893C0 
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CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 

DXP1=XL(IP1, J,K,0,0) 

DXI =XL(I ,J,K,0,0) 

DXMl = XL(IMl,o",K,0,C) 



DYP1=YL(i^ jpi^K,0,C) 

DYJ -YL(I,J ,K,0,0) 

DYM1=YL(I, JM1,K,0,0) 

DZP1=ZL(I, J,KP1,0,0) 

DZK =ZL(I,J,K ,0,0) 

DZM1=ZL(I, J,KM1,0,0) 

CC IF (J.EQ.2) DYS=DYS/2. 

CC IF (K.EQ.2) DZB=DZB/2. 

IF (J.NE.NJ) GOTO 101 

JP2=JP1 

DYN=DYN/2. 

101 IF (K.NE.NK) GOTO 102 
KP2=KP1 
DZF=DZF/2. 

102 CONTINUE 

C *»* CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR T 

DXE =XL(I?1, J,K,0, 1) 

DXW =XL(I ,J,K,0,1) 

DYN =YL(I, JP1,K,0,2) 

DYS =YL(I,J ,K,0,2) 

DZF =ZL(I, J,KP1,0,3) 

DZB =ZL(I,J,K ,0,3) 

C *** CACULATE DV/DX, D2V/DX2, DLVDX, D2U/DX2 , DW/DX AND D2W/DX2 



DUDX=(U (IPl, J,K)-U(I, J,K) )/DXI 
DUDXW=0 , 5 M U ( I? 1 , J, K) -u ( IMl , J, K) ) /DXW 
DUDXE=0 . 5 MU ( IP2, J, K) -U ( I , J, K) ) /DXE 
D2UDX2= (DUDXE-DUDXW) /DXI 



DVDxw=c . 5 M V ( :, j?i , :<) -V ( : , J, :o -v ( imi , j?i , K) -v ( imi , j, :o ) /dxw 
DVDXE = C , 5 MV ( I? : , J? 1, K) -V ( I? 1 , J, K) -V f I , J? 1 , K) -V ( I , J, K) ) /DXE 
DVDX=0.5* (DVDXE^DVCXW) 

D2VDX2= (DVDXE-DVDXW) /DXI 



DWDXW=C .5MW(I, J, KPl) -W ( I , J, K) -W ( IMI , J, KP 1 ) -W ( IMI , J, K) ) /DXW 
DWDXE=0 . 5 M W ( I? 1 , J, K?1 ) ( I?1 , J, K) -W ( I , J, KPl ) -W ( I , J, K) ) /DXE 

DWDX=C. 5* (DWDXE-DWDXW) 

D2WDX2= (DWDXE-DWDXW) /DXI 



602 CONTINUE 

*** CALCULATE DU/DY, D2U/DY2, DV/DY, D2V/DY2, DW/D Y AND D2W/DY2 



DVDY= (V(I, JrMK)-VC, J,K) )/UYJ 
DVDYS=0.5" (V(I, J?1,K)-V(I, JXi^K) )/DYS 
DVDYN=0 . 5 M V ( I , J?2, K) -V ( I , J , K) ) /DYN 
D2VDY2= (DVDYN-DVDYS) /DYJ 



00089400 

00089500 

00089600 

00089700 

00089800 

00089900 

00090000 

00090100 

00090200 

00090300 

00090400 

00090500 

00090600 

00090700 

00090800 

00090900 

00091000 

00091100 

00091200 

00091300 

00091400 

00091500 

00091600 

00091700 

00091800 

00091900 

00092000 

00092100 

00092200 

00092300 

00092400 

00092500 

00092600 

00092700 

00092800 

00092900 

00093000 

00093100 

00093200 

00093300 

00093400 

00093500 

00093600 

00093700 

00093800 

00093900 

00094000 

r\ fs ^ ^ rs f\ 

LKj\J 

00094200 

00094300 

00094400 

00094500 

00094600 

00094700 

00094800 

00094900 

00095000 

00095100 

00095200 

00095300 

00095400 

00095500 

00095600 

00095700 

00095800 

00095900 

00096000 

00096100 
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3*JDYS-C .i- (U (IPl, J,K) +U (I, J,K)-U (IPl, JM1,K)-U (I, JM1,K) ) /DYS 
3U0YN=C .5 - (UdPl, J?:,K) *hU ( I , JPl , K) -U ( IPl, J, K) -U ( I , J, K) ) /DYN 
DUDY=0.5- (DUDYN+DUOYS) 

32UDY2= (DUDYN-DUDYS) /DYJ 



3WDYS=C . 5 M W ( I , J, KP 1 ) -W ( I , J, X) -W ( I , JMl , KP 1 ) -W ( I , JMl , K) ) /DYS 
DWDYN=C . 5 M W ( I , JP 1 , KP 1) +W ( I , J? 1 , K ) -"W ( I , J, KP 1 ) -W ( I , J, K) ) /DYN 
DWDY=0.5* (DWDYN+DWDYS) 

D2WDY2= (DWDYN-DWDYS) /DYJ 

606 CONTINUE 

*** CALCULATE DU/DZ, D2U/DZ2, DV/DZ, D2V/DZ2, DW/DZ AND D2W/DZ2 



DWDZ= ( A ( I , J, KP 1 ) -W ( I , J, K) ) /DZK 
DWDZF=C.5* (W(I, J,XP2)-W(I, J,K ) ) /DZF 
DWDZB=C . 5 M W ( I , J, KP 1 ) -W ( I , J, KMl ) ) /DZB 
D2WDZ2= (DWDZF-DWDZB) /DZK 



DVDZB=C . 5 M V ( I , JP 1 , K) +V ( I , J, K) -V ( I , JP 1 , KMl ) -V ( I , J, KMl ) ) /DZB 
DVDZF=C.5MV(I, JPl^KPl) +V(I, J,KP1)-V(I, JP1,K)-V(I, J,K) ) /DZF 
DVDZ=0.5- (DVDZF-^DVDZB) 

D2VDZ2= (DVDZF-DVDZB) /DZK 



DCDZB=C .5* (UdPl, J,K) +U (I , J, K) -U (IP 1 , J, KMl ) -W (I , J, KMl ) ) /DZB 
DoDZF=C .5* (UdPl, J,KP1) +U (I, J,KPl)-UdPl, J,K)-U(I, J,K) ) /DZF 
DUDZ=C.5- (DUDZF-^DUDZB) 

D2UDZ2= (DUDZF-DUDZB) /DZK 

DRDX=( (RdPl, J,K)-REQ(IP1, J,K) ) - (R (IMl , J, K) -REQ (IMl , J, K) ) )/ 
& (DXE-DXW) 

DRDY=( (Rd, J?1,K)-REQ(I, JP1,K) )-(R(I, JM1,K)-REQ(I, JM1,K) ) ) / 
& (DYN-DYS) 

DRDZ= ( ( R ( I , J, K? 1 ) -REQ ( I , J, KPl ) ) - (R (I , J, KMl ) -REQ (I , J, KMl ) ) ) / 
& (DZF-DZB) 

DRDGA=S::C (ZC(K) ) * (SIN (XCd) ) *DRDY+COS (XC(I) ) *DRDX) 

& -CCS (ZC (K) ) -DRDZ 

CALCULATE RICHARDSON NUMBER 



CC0962CC 

C00963CC 

C00964CC 

CG0965CC 

C00966C0 

00096700 

C009680C 

C00969C0 

00097CCC 

00097100 

00097200 

00097300 

00097400 

00097500 

00097600 

00097700 

00097800 

00097900 

C00980CC 

00098100 

00098200 

00098300 

00098400 

00090500 

00098600 

00098700 

00098800 

00098900 

C0099CCC 

000991C0 

00099200 

00099300 

00099400 

00099500 

C00996CC 

00099700 

00099800 

00099900 

00100100 
\J \J i. ^ 

001CC4CC 

COlCCiCO 



3TSAIK=:VDY**2‘DVDX**2-DWDX**2*DVDZ**2+DWDY**2*DUDZ**2 

Z202 = SQRT (OUDY•DU^Y-DuDX*D'JDX+DUDZ*D'JDZ+DVDY*DVZY•^DVDX*DV^X■^ 

•: Z VZ Z * 2 '.‘Z Z - D WDX * 3 WD X - DWD Y * D WD Y- DWD Z * Z*WD Z ) 

;r(zzc2.£c.c.)Gc tc esc 

CAICZIATE TURBULENT LENGTH SCALE SMPP(I,J) 

SMP123=SQRT( ( (U ( I?1 , J, K) -^U ( I , J, K) ) * 0 . 5) **2+ ( (V( I, J? 1, K) -V ( I , J, K) ) 
& C.5) ”2+ ( (W(I, J,K?1) +W(I, J, K) ) *0.5) **2) /DD02 

3.v?P12=ZZ02 /SQRT(D2UDX2*D2UDX2+D2UDY2*D2UDY2 
& -32U3Z2*Z2UDZ2+D2VDX2*D2VDX2+D2VDY2*D2VDY2+D2VDZ2*D2VDZ2* 

& Z2WDZ2*Z2WDZ2^D2WDX2*D2WDX2+D2WDY2*D2WDY2) 

SMPP (Z, J, K) =CNT* (SMP123+SMPP12) *.5 
R : ( I , Z , ;<) =-3U0 Y* DRDGA/ ( R ( I , J, K ) * STRAIN ) 

A3RI?R=.A5TURB-^R I ( I , K) /PRT 
:?(A3r;?r .lt. o.) gc to eoo 
:e(abr:?r .eq. c.> go to ei3 

GO TO 6i: 

600 v:s(:,z,K)=visL 







> O •' ~''r\ 

:oioi4CO 

^ ^\J ^ i w w 

r\ rs f\ 
\j ^ ^ \J ^ \j \J \J 

00102200 
r\ ~ 



613 v;s (I, J.K)=VISMAX 
GO TO c 1 1 

610 v: 3 (I, =VISL*R (I, J, K) *SMPP (I, J,K) * SMPP (I 

& (BTuRB'ABRIPR) 



X) -SQRT (STRAIN) / 



'' ' C 
/> o S ^ 

O Z 7 w V 
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IF(VIS(I, J,K) .GT. VISMAX) VIS ( I , J, K) =VISMAX 


00103000 


611 


CONTINUE 


00103100 

00103200 

00103300 




DO 110 :=:,NiPi 


00103400 




DO lie J=1,NJP1 


00103500 




VIS (I, J, NKP 1) =VIS (I, J,NK) 


C0103600 




VIS(I,U,1 )=VIS(I,J,2 ) 


00103700 


no 


CONTINUE 


00103800 

00103900 




DO 120 J=1,NJP1 


00104000 




DO 120 K=1,NKP1 


00104100 




VIS(NIP1, J,K)=VIS(2, J,K) 


00104200 




VISd , J,K)=VIS(NI, J,K) 


00104300 


120 


CONTINUE 


00104400 

00104500 




DO 130 K=1,NKP1 


00104600 




DO 130 I=1,NIP1 


00104700 




VIS(I,NJP1,K)=VIS(I,NJ, K) 


00104800 




VISd, 2 ,K)=VIS(I,3 ,K) 


00104810 




VIS(I,1 ,K)=VIS(I,2 ,K) 


00104900 


130 


CONTINUE 


00105000 

00105100 




DO 135 K=l,16 


00105110 




KK=NKP1-K 


00105120 




DO 135 I=1,NIP1 


00105130 




DO 135 J=i,NJPl 


00105140 




VIS(I,J,KK)=VIS(I, J,K) 


00105150 


135 


CONTINUE 


00105160 

00105170 




DO 140 I=i,NIPl 


00105200 




DO 14C J=1,NJP1 


00105300 




DO 140 K=1,NKP1 


00105400 




IF (NODd, J,K) .EQ.l) GOTO 140 


00105500 




CONDd, J,K) =VIS (I, J,K) /PRT 


00105600 


140 


CONTINUE 


C01057C0 

C0105800 




RETURN 


00105900 




END 


00106000 

C0106100 

CC106200 

C0106300 






CC10640C 



C01C650C 



subro’jt:n'£ ca’^t 

COMMON/R4/XC(93) , YC ( 93) , 2C ( 93 ) , XS ( 93 )’, YS ( 93 ) , Z3 ( 93 ) , 

5 3XXC (93) ,3YYC(93) ,DZ2C(93) , DXXS (93) , ZYYS ( 93) , ZZZS ( 93) 

C0MM0N/3i:/ZX,DY,DZ, VOL,DT:y.E,VCLDT,r;-;OT,TCCCL, ?;,C,CR 
C0MM0K/B17 /X : , n :? i , m:m 1 , N J, NJP l , N JMI , NK, NKP 1 , NKMl 



001C66CC 

w ^ X J O • \J \J 

CC1068CC 

CC1C69CC 



CC1C71C0 

CC1C72C0 

001073C0 



& ,NIP2,NJP2,XKP2,NA,NAP1,NAM1,N3,NBP1,NBM1,KRUN,N-C;-;:P,NJRA,NWRP 
COMMONV3L12/ NWRITE,\'TAPE,NTMAXO,NTREAL,TIME, SORSCX, ITER 
COMMONV3114 /HCOEF, TINF, CNT, ABTURB, BTURB, VISE, VISMAX, QCORRT, ?M1 , ?X2001C7<0C 
COMMON/3L16/ CCNSTl , C0NST2 , CONST3 , CONST4 , CONST6 , XT, TC , H, UGRT, BUOY, CC1C7500 
i CPC , ?RT, CONOC , Vise, RHOO , HR, TR, TA, DTEMP, TWRITE, TTAPE, TXAX, GC, RAIRCC1C7600 
COMMONV3L22/:CHPB(1C) ,NCHPI (1C) , JCHPB (10) , NCKPJ ( 1C) , XCKPB ( 10) , 00107700 

& XCHPK(IC) ,TCHP (10) , CPS (10) , CONS (1C) ,WFAN(10) 

COMMON/3L31/ TOD ( 22 , 1 6, 32 ) , ROD (22 , 1 6 , 32) , POD (22, 16, 32) 

S , COD (22, 16, 32) ,UOD(22, 16, 32 ) , VOD (22 , 16, 32 ) , WOD (22, 1 6, 32 ) 

COMMOX/3L32/ T (22 , 1 6, 32) , R (22 , 1 6, 32 ) , ? (22 , 1 6, 32 ) 

S ,C (22, 16,32) ,U (22, 16,32) ,V (22, 16,32) ,W (22, 16, 32) 

COMMON/3L33/ TPD (22, 16, 32) , RPD (22, 16, 32) , PPD (22, 15, 32) 

S ,C?D(22, 16,32) ,UPD(22, 16,32) ,V?D (22, 16, 32) ,W?D(22, 16,32) 

COMMON/313^/ liF.IGHT (22, 16,32) , REQ (22, 16,32) , 

5 SXP (22, -.6, 32) ,SMPP (22, 16,32) ,P? (22,16, 32), 

6 CU (22, 16,52) , DV (22, 16, 32) ,DW (22, 16,32) 

COMMON/3136/AP ( 22 , 1 6 , 32 ) , AE (22 , 1 6 , 32 ) , AW (22 , 1 6, 32 ) , AN (22, 1 6 , 32) 

i AS (22, 1 6, 32) ,AF (22, 16, 32) , A3 (22, 16, 32) , 



r* rs ^ n r> 

ccios:-''- 



00107800 

CC1C79CC 

rs rs r 

^ u L 

0 c 

00108200 

00108300 

30108400 

00108500 

00x08600 

00108700 

00108800 

00108900 
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,CPM(22, 16,32) ,HSZ (3,2) .NHSZ (22, 16,32) ,RESORM(93) 


00109200 


CALCULATE COEFFICIENTS 




00109300 

00109400 


DO ICO K=2,NK 




00109500 

00109600 


KP2=K-^2 




00109700 


KP1=K+1 




00109800 


KM1=K-1 




00109900 


KM2=K-2 




00110000 


DO 100 J=2,NJ 




00110100 


JP2=J+2 




00110200 


JP1=J+1 




00110300 


JM1=J-1 




00110400 


JM2=J-2 




00110500 


DO 100 1=2, NI 




00110600 


IP2=I+2 




00110700 


IP1=I+1 




00110800 


IM1=I-1 




00110900 


IM2=I-2 




00111000 


IF (I.EQ.2) IM2=NIM1 




00111100 


IF (I.EQ.NI) IP2=3 




00111200 


CENTRAL LENGTH OF THE TEMPERTURE CONTROL 


VOLUME 


00111300 

00111400 


DXP1=XL(I?1,U,K,0,0) 




00111500 

00111600 


DXI =XL(I ,J,K,0,0) 




00111700 


DXM1=XL(IM1, J,K,C,0) 




00111800 


DYP1=YL(I, JP1,K,0,C) 




00111900 

00112000 


DYJ =YL(I,J ,K,0,C) 




00112100 


DYM1=YL(I, JM1,K,0,0) 




00112200 


DZP1 = 2LC, J,KP1,0,0) 




00112300 

00112400 


D2K =2L(I,J,K ,0,0) 




00112500 


D2M1=2L(I, J,KM1,0,0) 




00112600 


SURFACE LENGTH OF THE CONTROL VOLUME 




00112700 

00112800 


DXN=XL(I, J?:,K,0,2) 




00112900 

00113000 


DXS=XL(I, J ,K,C,2) 




00113100 


DXF=XL(I, C, 3) 




00113200 


DXB=XL(I, J, K , 0, 3) 




00113300 


DYF=YL|I, J,K?:,C,3) 




0C1134CC 

00113500 


DYB=YLII, J, H ,:,3) 




00113600 






\^\j ^ 1 \^\j 






DYW=YL(I , K, 0, I) 




00113800 


D2t=2L( Ir' w, K, 0, *) 




00113900 

00114000 


D2W=2L(I , J,K,C, 1) 




00114100 


D2N=2L ( I , T? I , K, C , 2 ) 




00114200 


D2S = 2L(-.,^ ,K,0,2) 




00114300 


CENTRAL LENGTH OF THE STAGGERED CONTROL 


VOLUME FOR T 


00114400 

00114500 


DXEE=XL(I?2,J,K,0,1) 




00114600 


DXE =XL(I?1, J,K,3,:) 




C011480C 


DXW =XL(I K,0,:) 




C0114900 


DXWW=XLCy.l, J,.<,0,1) 




00115CCC 


DYNN=YL(I, J?P,K,0,2) 




00115100 
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DYN =YL{:,J?i,K,C,2) 




00115300 


DYS =YLC,J ,K,C,2) 






DYSS=YL(I, jy.:,K,c,2) 






D2FF=2L(I, J,r:?2,C,3) 
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ZZF =21(1, J,K?1, 0,3) 

3ZB =21(1, J,K ,0,3) 

DZBB=21(I, J,KM1,0,3) 

*■* DZFINE THE AREA OF THE CONTROL VOLUME 

3XYF=1XF*DYF 

3XYB=DXB*DYB 

3YZE=3YE*DZE 

3YZW=DYW»DZW 

3ZXN=DZN»DXN 

OZXS=OZS»DXS 

VOL=DX:*DYJ»DZK 

VOLDT=VOL/DTIME 

ZXOYN=DZXN/DYN 

ZXOYS=DZXS/DYS 

XYOZF=DXYF/DZF 

XYOZB=DXYB/DZB 

YZOXE=LYZE/DXE 

YZOXW=DYZW/DX((J 

GN»(R(I, J,K) ‘DYPl+Rd, JP1,K) »DYJ) / (DYPl+DYJ) 
GS=(RC,J,K) *DYM1+R(I, JM1,K)*DYJ) /(DYMl+DYJ) 
G£=(R(I, J,K) ‘DXPl+RdPl, J,K) *DXI) / (DXPl+DXI) 
GW=(Rd, J,K) «DXMl+RdMl, J,K) *DXI) / (DXMl+DXI) 
GF=(RC, J,K) ‘DEPl+Rd, J,KP1) ‘DZK) / (DZPl+DZK) 
GB= (Rd, J,K) *DZM1+Rd, J,KM1) *DZK) / (DZMl+DZK) 

CN=GN’Vd, JP1,K) *DZXN 
CS=GS’V(I,J ,K)*DZXS 
CE=GE»UdPl, J,K) *DYZE 
CW=GWU (I , J , K ) • DYZW 
CF=GF *Wd, J,K?1) *DXYF 
C3=G3*W(I, J,K )*DXYB 



CCNDN=1./ ( (l./COND(I, J,K) *DYJ+l./COND d , JPl , K) ‘lYPl ) / (DYP 1-DYJ) ) 
CONDS = : ( (l./COND (I, J,K) *DYJ+1 . /COND (I , JMl , K) 'OYMl) / (DYMl + DYJ) ) 

CONDE=l./ ( (l./COND(I, J,K) «DXI + 1 . /COND d?l , J, K) *0XP1) / (OXPl-^DXI) ) 
C0NDK=:./ ( (l./COND(I, J,K) *DXI + 1 . /COND ( IMl , J, K) ‘OXHl)/ OXMl+OXI) ) 
CONDF=l ./ ( (1 ./CONDC, J,K) »DZK+1 . /COND ( I , J, KPl ) *DZP1) / (DZPl-DZK) ) 
CCND3=: . / ( (1 ./CONDC, J, K) *DZK+1 ./COND (I , J, KMl ) * DZMl ) / (DZMl+DZK) ) 

CGNDN'l = ZXOYN*CONDN 
CGNDS:=2XOYS*CONDS 
CCND£1=Y20XE*C0NDE 
CCNDVCl=YZOXW*CONDW 
CCNDFl=XYOZF*CONDF 
C0ND51=XY0Z3*C0NDB 



C£?=(A3S(CE) +CE) "DXPl'DXI/ (DXE» (DXE+DXW ) ) /8. 
C£M=(A5S(CE)-CE) *DXP1 *DXI/ (DXE* (DXE+DXEE) )/8. 
CVrt>=(A33(CW) +CW) *DXM1*DXI/ (DXW (DXW+DXWW) ) /8. 
CWM=(A3S(CW)-CW) *DXM1*DXI/ (DXW* (DXW+DXE ) ) /8. 

CN'?= (.A3S (CN) +CN) -DYPl'DYJ/ (DYN* (DYN+DYS ) ) /8 . 
C.';M=(A53(CN)-CN) *DY?1’DYJ/ (DYN* (DYN+DYNN) ) /8. 
CSP=(A3S(CS) +CS) *DYM1*DYJ/ (DYS* (DYS+DYSS) ) /8 . 
C3M=(A3S (CS)-C3) *DYM1 *DYJ/ (DYS* (DYS+DYN ) ) /8. 

CFP=(A5S(CF) +CF) *DZP: "DZK/ (DZF* (DZF-DZ3 ))/8. 
CFM=(.A33(CF)-CF) *DZ?1 *DZX/ (DZF* (DZF-DZFF) ) / 8. 
C3P=(.A33(C3) -CB) *DZM:*DZK/ (DZB* (DZB+DZ33) ) /8 . 
C3M=(A33(C3)-CB) *DZM1*DZK/ (DZB* (DZB+DZF ) ) /8. 
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AZ { I, J, K) =- .5 *DXI/DXE*CE^CE?^C£M* (1 . -rDXE/DXEE) -CWM* DXW/DXE 
AW(I, J, K) = .5*DXI/DXW*CW+CWM+CWP* ( 1 . +DXW/DXWW) +CE?*DXE/DXW 
AN ( I , J, K) =- . 5 -DYJ/DYN *CN+CNP+CNM^ ( 1 . -rDYN/DYNN) +CSM*DYS/DYN 
AS(I, J, K) = .5»DYJ/DYS^CS+CSM+CSP* {1 .+DYS/DYSS) +CN?^DYN/DYS 
AF (I, J, K) =-.5*DZK/DZF*CF+CFP+CFM* { 1 . ^DZF/DZFF ) -^CBM*DZB/DZF 
AB(I, J,K) = .5-DZK/DZB‘CB+CBM+CBP* { 1 . +DZB/DZ33) *»-CF? * DZF/DZB 

801 AEE=-CZM*DXE/DXEE 
AEER=AEZ*TPD (IP2, J,K) ^CPM ( IP2 , J, K) 

802 CCNTIN'JZ 

803 AWW=-CWP*DXW/DXWW 
AWWR=AWW^TPD {IM2, J,K) *CPM { IM2 , J, K) 

804 CONTINUE 

IF {J.IT.NJ) GOTO 805 
ANN=0. 

ANNR=0. 

GOTO 806 

805 ANN=-CNM*DYN/DYNN 
ANNR=ANN*TPD (I, JP2, K) *CPM ( I , JP2 , K) 

806 CONTINUE 

IF (J.GT.2) GOTO 807 
ASS=0. 

ASSR=0. 

GOTO 808 

807 ASS=-CS?*DYS/DYSS 
ASSR=ASS*TPD ( I, JM2, K) *CPM ( I , JM2 , K) 

808 CONTINUE 

IF (K.ZT.NK) GOTO 809 
AFF=0. 

AFFR=C. 

GOTO 810 

809 AFF=-CFM*DZF/DZFF 
AFFR=AFF*TPD ( I , J, KP2) *CPM ( I , J, KP2 ) 

810 CONTINUE 

IF {K.GT.2) GOTO 811 
A3B=0 . 

A33R=C. 

GOTO 812 

911 AB3=-CB?*DZ3/DZBB 
A33R=A33*TPD ( I, J, KM2) *CPM ( I , J, KX2 ) 

912 CONTINUE 



#####888p888«#8|r88|tttir8tff#ff#f##8f##ff#########f888#f«888 

MODIFICATION FOR DECK BOUNDARIES 

900 CONTINUE 

IF (NOD CMl, J, K) .EQ.C) GOTO 901 

AWW=C . 0 

AWWR=C.O 

901 CONTINUE 

IF (NOD (IPl, J,K) .ZQ.O) GOTO 902 

AZE=0.C 

AZER=C.C 

902 CONTINUE 

I? (NOD (I, JM:,K) .ZQ.C) GOTO 903 
A5SR=C .0 
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903 CONTINUE 

IF (NCDd, J?1,K) .EQ.O) GOTO 904 

ANN=0.C 

ANNR=C.O 

904 CONTINUE 

IF (NODd, J/KMl) .EQ.C) GOTO 905 

ABB=0.C 

ABBR=0.C 

905 CONTINUE 

IF (NOD d, J,KP1) .EQ.O) GOTO 906 

AFF=0.0 

AFFR=0 . 0 

906 CONTINUE 

C ########################################################## 

C #########f ###############?### #################### ######### 

APd, JdO = (AEd, J,K)+AW(I, J,K)+AN(I, J,K)+AS(I, J,K) 

& +AF ( I , J, K) +AB (I , J, K) +AEE+AWW+ANN+ASS*rAFF+ABB) *CPM ( I 

& rCONDEl+CONDWl+CONDNl+CONDSl+CONDFl+CONDBl 

AE ( d w r K) =AE ( d J, K) *CPM dPl , J, K) +CONDE1 
AW (I , J, K) =AW ( I , U, K) ’^CPM (IMl , J, K) +CONDW1 
AN ( d U, K) =AN (d-d K) *CPM +CONDN1 

AS ( I , J, K) =AS ( I, J, K) *CPM ( I , JMl , K) +CONDS1 
AF ( I , J, K) =AF ( I , J, K) *CPM (I , J, KPl ) +CONDF1 
AB (I , J, K) =AB ( I , J, K) -^CPM (I , J, KMl ) +CONDB1 

SP (I , U, K) =-ROD ( I , J, K) -^VOLDT^CPM ( I , J, K) 

SU ( I , J, K) = ROD ( d Ur K) *VOLDT^TOD ( I , Jr K) *CPM ( I r Jr K) 

SU (I , J, K) =SU ( I , J, K) +AEER+AWWR+ANNR+ASSR+AFFR+ABBR 
100 CONTINUE 

C *** TAKE CARE OF 3.C. THRU AN, AS, AE, AW, AF, AB, S? AND SU 

C RADIUS DIRFXTION 

DO 500 1=2, NX 
DO 500 K=2,NK 

S? ( 1 , 2 , K) =S? ( d 2, K) -rAS ( 1 , 2 , K) 

CC S? ( 1 , 2, K) =SP ( d 2 , K) -AS (1 , 2 , K) 

CC Sj ( 1 , 2 , K) =SU ( d 2 , K) -"2 . 0 *AS d, 2, K) *TPD (1 , 1 , K) 

$? ( I , NJ, K) =S? d , NUr K) -AN ( I , NJ, K) 

SU ( : , ::u, K) =su ( i , :: j, :o ^2 . -tpd ( i , njpi , i-o * an ( : , n u, k) 

ASd,2,K)=0. 

ANd,::u,K)=o. 

500 CONTINUE 

C »•» CYIIC CONDITIONS 

DO 600 U=2,NJ 
DO 600 K=2,NK 

SU(2 ,U,K)=SU(2 ,J,K)tAW(2 ,J,K)*T(1 ,U,K) 

SU(NI, J,K)=SU (NI, J,K) +AE(NI, J,K) *T(NI?1,U,K) 

AW(2 ,U,K)=0.0 
AE(NI, J,X)=0.0 
600 CONTINUE 

C *** END OF SPHERE 

DO 700 1=2, n: 

DO 700 U=2,NU 

S?d,U,2)=S? ( ;,U,2) -AEd, J,2) 

3? d, UrNK)=5P ( : ,U,NK) -AF C, J,NK) 

AB(I,Ur2)=0. 
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A? (I, J,NK)=0. 
700 CONTINUE 



««« ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 

DO 300 K=2,NK 
DO 300 J=2,NJ 
DO 300 1=2, NI 

AP ( I , J, K) =AP (I , J, K) -S? ( I , J, K) 

300 CONTINUE 



C **• VOLUME HEAT SOURCE INPUT 



VOLT=0.0 
DO 113 1=2, NI 
DO 113 J=2,NJ 
DO 113 K=16,17 

IF (NHSZd, J,K) .EQ.O) GOTO 113 
DXI =XL(I ,J,K,0,0) 

DYJ =YL(I,J ,K,0,0) 

D2K =ZL(I,J,K ,0,0) 
VOL=DXI*DYJ*DZK*H*H*H 
VOLT=VOLT-VOL 
113 CONTINUE 

DO 111 1=2, NI 
DO 111 J=2,NJ 
DO 111 K=16,17 

IF (NHSZ (I, J,K) .EQ.O) GOTO 111 
DXI =XL(I ,J,K,0,C) 

DYJ =YL(I,J ,K,0,0) 

D2K =ZL(I,J,K ,0,0) 

QQQ=Q«H/ (UC*CP0*RHO0«TA) 
VOL=DXI*DYJ*DZK 

SU ( I , J, K) =SU ( I , J, K) ^VOL*QQQ/VOLT 
111 CONTINUE 



C ••• RADIATION INTO THE WALL 

C DO 310 K=3,NKM1 

C 3XN =Xlh ' ,NJRA,K, 0,2) 

: OZN =ZLC,XJRA,K ,0,2) 

0 0ZXN=0ZX*0XN 

0 ::=(K-3) ’ (XI-:) • 

0 SO(I,XJRA,K)=SO (I,NJRA,K)-RWALLC:) *DZXN 

C 310 CONTINUE 

C ’** END or RADIATION 

C ’** SOLVE FOR T 

wrire(6,*) 'calling crid' 

00141300 

CALL TRID (2,2,2,NI,NJ,NK,T) 

C RESET TEMPERATURE AT R=0.0 AND END OF SPHERE 

DO 81 K=1,NKP1 
AVT=0 . C 
DC 82 1=2, N I 
AVT=AVT-(T(I,2, K) /NIXl) 

82 CONTINUE 

DO 83 I=1,NI?1 
T(I,1,K)=AVT 
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83 CONTINUE 
81 CONTINUE 

DO 74 I=1,NIP1 
DO 74 J=1,NJP1 
T(I,J,1)=T(I, J,2) 

T(I,J,NKP1)=T(I,J,NK) 

74 CONTINUE 

*•* FOR SURFACE HEAT EXCHANGE WITH SURROUNDING 

DO 84 1=2, NI 
DO 84 K=2,NK 
DYJ=YL(I,NJ,K,0,0) 

T(I,NJP1,K) = (2.0*COND (I,NJ,K) *T(I,NJ,K) /DYJ+HCOEF *TINF) / 
& (HCOEF+2 . 0 »COND ( I , NJ, K) /DYJ) 

84 CONTINUE 



*** FOR CYLIC CONDITION 

DO 80 J=1,NJP1 
DO 80 K=1,NKP1 
T(l, J,K)=T(NI, J,K) 

T(NIP1, J,K)=T(2, J,K) 

80 CONTINUE 

RETURN 

END 



SUBROUTINE CALC 



COMMON/R4/XC(93) , YC(93) ,ZC(93) ,XS(93) , YS ( 93 ) , ZS (93) , 

& DXXC(93) ,DYYC(93) , DZZC ( 93 ) , DXXS ( 93 ) , DYYS ( 93 ) , DZZS ( 93 ) 

common/bl:/dx,dy,dz,vol,dtime,voldt,thot,tcool,p:,q,qr 

COMMON/ BL7 /N I , N I P 1 , N IMl , N J, N JP 1 , N JMl , NK, NKP 1 , NKMl 
& , NIP2 , N JP2 , NKP2 , NA, NAPl , KAMI , NB, NBPl , NBMl , KRUN, NCHIP, N JRA, NWRP 

COMMON/BL12/ NWRITE, NTAPE, NTMAXO , NTREAL, TIME, SORSUM, ITER 
C0MM0N/BL14/HC0EF,T:NF,CNT,ABTURB,BTURB,VISL, VISMAX,QCORRT, PM1,?M20C146900 
COMMON/BL16/ CONSTl , CONST2, CONST3 , CONST4 , CONST6, NT, UO , H, UGRT, BUOY, 00147000 
& C?0,?RT,COND0,VIS0,RHO0,HR, TR, TA, DTEMP , TWRITE , TTAPE, TMAX, GC , RAIROOl 47 ICO 
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COMMON/3L22/:CH?3(10) ,NCH?I (10) , JCHPB (10) ,NCHPJC0) ,KCH?3(1C) , 
i NCHPK (10), TCHP ( 10 ) , CPS ( 1C) , CONS (10), WFAN (10) 

COMMON/313 1/ TOD (22, 16, 32 ), ROD (22 , 16, 32 ) , POD (22 , 1 6, 32) 

& , CCD (22, 16, 32) ,UOD(22, 16,32) ,VOD(22,16, 32 ) , WOD (22 , 1 6, 32) 

CCMMON/3132/ T (22 , 1 6, 32 ) , R (22 , 1 6, 32 ) , ? (22 , 1 6, 32 ) 

& rC (22, 16, 32) ,U (22, 16,32) ,V (22, 16,32) ,W (22, 16,32) 

COMMON/BL33/ T?D (22,16, 32 ) , RPD (22 , 1 6, 32 ) , PPD(22, 16, 32) 

& ,C?D(22, 16,32) ,UPD(22, 16,32) ,VPD(22, 16, 32) , W?D (22, 16,32) 

COMMON/BL34/ HEIGHT (22, 16, 32) , REQ (22, 16, 32) , 

& SMP (22, 16, 32) ,SMPP (22 , 16, 32 ) , PP (22 , 1 6, 32 ) , 

& DU (22, 16, 32) ,DV (22, 16, 32) ,DW (22, 16,32) 

COMMON/BL36/AP(22,16, 32) ,AE(22, 16, 32) , AW (22 , 16, 32 ), AN (22, 16, 32 ) , 

& AS(22, 16, 32) , AF(22, 16,32) ,AB(22, 16, 32) , 

& SP (22, 16, 32) , SU (22, 16,32) ,RI (22,16,32) 

COMMON/BL37/v:S(22, 16,32) ,CCND(22,16, 32 ) , NOD (22 , 1 6, 32 ) , RWALL ( 579) 
& ,C?M(22, 16,32) ,HSZ (3,2), NHSZ (22, 16 , 32 ) , RESORM ( 93 ) 

COMMON/B139/ALEW, PCURVE , CONSRA, PCURMl , PSOUTH, QCORR, PERROR 

• CALCULATE COEFFICIENTS 

DO 100 K=2,NK 

KP2=K-2 

KP1=K-1 
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Ky.:=K-i 




C0149SCC 


KM2=K-2 
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30 ICC J=2,NJ 
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J?2= J*^2 
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JM2=J-2 
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DO ICC :=2,NI 
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I ? 1 = I - 
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:M2=I-2 
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IF (I. IS. 2) IM2=NIM1 
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IF (I.IQ.NI) IP2=3 
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DXP1=X1C?1, J,K,0,0) 
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DXI =X1(I rJrK,0,0) 
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DXM1=XL(IM1, J,K,0,0) 




00151400 

00151500 


DYP1=YLC, JP1,K,0,0) 




00151600 


DYJ =Y1C,J ,K,0,C) 




00151700 


DYM1=YLC, JM1,K,0,0) 




00151800 

00151900 


DZ?1 = ZLC, J,KP1,C,C) 




00152CC0 


3ZK =ZK;,J,K ,0,0) 




0015210C 


DZM1=ZLC, J,KM1,C,C) 




001522CC 

00152300 


SURFACE LENGTH OF 


THE CONTROL VOLUME 


C01524CC 

001525C0 


DXN=XLC, JP1,K,0,2) 




00152600 


DXS=XLC, J ,K,0,2) 




00152700 


DXF=XLC, J,KP1,0,3) 




00152800 


DXB=XLC, ,0,3) 




00152900 

00153000 


DYF=YLC, J,KP1,C,3) 






DY3=Y1C,C,K ,C,3) 




00153200 


DYE=YLC?1, J,K,0, 1) 




0015330C 


DYW=YLC , J,K,C,:) 




00153400 

00153500 


DZE=ZLC?:, J,K,0, 1) 




v^ul5^0w0 


DZW=ZLC , J,K,C, 1) 






DZN=Z1C, J?1,K, 0,2) 




^ f-k • 

w/U w J Sw VJ 


DZS=ZLC, J , K,C,2) 




n r\ • 

- - 


CENTRAL LENGTH OF 


THE STAGGERED CONTROL VOLUME FOR T 


Z. A “ '''' 

SJ ^ A ^ W 


DXEE=X1C?2, J,K,C,1) 




^ ^ J 


CXE =XLC?i, J,K,C, 1) 






DXW =XLC ,J,K,0,:) 




c / “ ^ ^ 


DXWW=XLCX1, J,K,0, 1) 




001546C0 

0C15470C 


DYNN=YLC, J?2,K,C,2) 




00154800 


DYN =YLC,J?1,K,C,2) 




0015490C 


DYS =Y1C,J ,K,0,2) 






DYSS=YLC, JM1,K,C,2) 




00155100 


DZFF=Z1{:, J,KP2,C,3) 




f\ ~ rzz'''' 


DZr =Z-.(*,w,KPl,C,3) 




zz / ^ ^ 


DZ3 =Z_(-,w,K ,C,3) 




^ r> • 

^ SJ ». 


DZ33=ZLC,v;,KMl,C,3) 




wJaOwCvv' 
r\ r\ ^ 

^ w w 


DEFINE CHE AREA OF 


THE CONTROL VOLUME 


r\ • 


DXYF=DXF-DYF 






DXY3=DX3"0Y3 






DYZE=DYE-DZE 




00156200 
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DYZW=DYW*DZW 

DZXN=DZN*DXN 

DZXS=DZS*DXS 

VOL=DXI*DYJ*DZK 

VOLDT=VCL/DTIME 

ZXOYN=DZXN/DYN 

ZXOYS=DZXS/DYS 

XYOZF=DXYF/DZF 

XYOZB=DXYB/DZB 

YZOXE=DYZE/DXE 

YZOXW=DYZW/DXW 

GN=(R (I, J,K) *DYP1+R(I, JP1,K) *DYJ) / (DYPl+DYJ) 
GS= (R (I, J,K) ‘DYMl+R (I, JM1,K) *DYJ) / (DYMl+DYJ) 
GE= (R (I, J,K) *DXP1+R(IP1, J,K) *DXI) / (DXPl+DXI) 
GW=(R(I, J,K) *DXM1+R(IM1, J,K) *DXI) / (DXMl+DXI) 
GF=(R(I, J,K) *DZP1+R(I, J,KP1) *DZK) / (DZPl+DZK) 
GB=(R(I, J,K) *DZM1+R (I, J,KM1) *DZK) / (DZMl+DZK) 

CN=GN*VC, J?1,K) *DZXN 
CS=GS*V(I, J ,K) *DZXS 
CE=GE*U(IP1, J,K)*DYZE 
CW=GW*U (I , J,K) *DYZW 
CF=GF*W(I, J,KP1) *DXYF 
CB=GB*W(I, J,K ) *DXYB 



C0NDN=1 . / ( ( 1 . /COND ( I, J, K) *DYJ+1 . /COND (I , JPl , K) *DYP1 ) / (DYP 1+DYJ) ) 
CONDS=l . / ( ( 1 . /COND ( I , J, K) *DYJ+1 . /COND ( I , JMl , K) *DYM1 ) / (DYMl-^DYJ) ) 
CONDE^l ./ ( (l./CONDd, J,K) *DXI + 1 . /COND ( IPl , J, K) *DXP1) / (DXPl + DXI) ) 
CONDW=l ./ ( (l./COND (I, J,K) *DXI + 1 . /COND ( IMl , J, K) *DXM1) / (DXMl-^DXI) ) 
CONDF=: ./ ( (l./COND(I, J,K) *DZK + 1 . /COND ( I , J, KPl ) *DZPI )/ (DZPl + DZK) ) 
CONDB=i./ ( (l./COND(I, J, K) *DZK+1 . /COND ( I , J, KMl ) *DZM1 )/ (DZMl + DZK) ) 

CONDNl=ZXOYN*CONDN*ALEW 
CONDSl=ZXOYS*CONDS*ALEW 
CONDEl=YZOXE*CONDE*ALEW 
CONDWl=YZOXW*CONDW*ALEW 
CONDFl=XYOZr *CONDF*ALEW 
CONDBl=XYOZB*CONDB*ALEW 



CEP= (A5S (CE) +CE) *DXP1 *DXI/ (DXE* (DXE+DXW ) )/8. 
CEM=(A5S (CE) -CE) »DXP1 *DXI/ (DXE* (DXE+DXEE) ) /8. 
CW?=(A3S (CW) rCW) *DXM1*DXI/ (DXW* (DXW+DXWW) ) /8. 
CWM=(ABS (CW)-CW) -CXMl^DX!/ (DXW* (DXW+DXE ) ) /8. 

CNP=(ABS(CN) -CN) *DY?1»DYJ/ (DYN* (DYN+DYS ) )/8. 
CNM=(ABS (CN)-CN) * DYPl *DYJ/ (DYN* (DYN+DYNN) )/8. 
CSP=(ABS (CS) ^CS) »DYM1»DYJ/ (DYS* (DYS+DYSS) ) /8. 
CSM=(A3S (CS)-CS) »DYM1*DYJ/ (DYS* (DYS+DYN ) )/8. 

CFP=(ABS (CF) -rCF) *DZP1*DZK/ (DZF* (DZF+DZB ) )/8. 
CFM=(ABS (CF)-CF) *DZP1*DZK/ (DZF* (DZF+DZFF) ) /8. 
CBP=(ABS (C3) ^CB) *DZM1 *DZK/ (DZB* (DZB+DZBB) )/8. 
CBM=(AB5 (CB)-CB) * DZMl »DZK/ (DZB* (DZB+DZF ) )/8. 



AE ( I , J, K) =- . 5 'DXI /DXE ‘CE+CEP+CEM* (1 . -DXE/DXEE) -CWM*DXW/DXE 
AW( I, J, :<) = . 5 *DXI/DXW*CW+CWM+CWP» ( 1 . tDXW/DXWW) tCE?*DXE/DXW 
AN(I, J,K) =“.5»DYJ/DYN*CN+CNP+CNM* ( 1 . -DYN/DYNN) *tCSM*DYS/DYN 
AS(I, J,K) = .5*DYJ/DYS*CS+CSM+CSP* ( 1 . -DYS/DYSS) ^CN?*DYNVDYS 
AF (I, J, :<) =-.5 *DZK/DZF*CF-CFP + CFM* ( 1 . -DZF/DZFF) *C3M*DZ3/DZF 
AB(I, J,:<) = .::-DZK/DZ3*CB+CBM+CB?* ( 1 . ^DZB/DZBB) -CF? 'DZF/DZ3 



801 AEE=-CEM*DXE/DXEE 



00156300 

00156400 

00156500 

00156600 

00156700 

00156800 

00156900 

00157000 

00157100 

00157200 

00157300 

00157400 

00157500 

00157600 

00157700 

00157800 

00157900 

00158000 

00158100 

00158200 

00158300 

00158400 

00158500 

00158600 

00158700 

00158800 

00158900 

00159000 

00159100 

00159200 

00159300 

C0159400 

00159500 

00159600 

00159700 

00159800 

00159900 

00160000 

00160100 

00160200 

C0160300 

00160400 

00162700 

001628CO 

00162801 

00162802 

001628C3 

00162804 

00162805 

00162806 

00162807 

00162808 

0C162809 

00162810 

00162811 

00162812 

00162813 

00162814 

00162815 

00162816 

00162817 

00162818 

00162819 

00162820 

00162821 

00162822 

00162823 

00162830 
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AEER=AEE*CPD ( I?2, J, K) 




00162900 


802 CONTINUE 




00163000 

00163100 


803 AWW=-CWP*DXW/DXWW 




00163200 


AWWR=AWW*CPD ( IM2, J, K) 




00163300 


804 CONTINUE 




00163400 

00163500 


IF (J.LT.NJ) GOTO 805 




00163600 


ANN=0 . 




00163700 


ANNR=0. 




00163800 


GOTO 806 




00163900 


805 ANN=-CNM*DYN/DYNN 




00164000 


ANN R= ANN * CP D ( I , J? 2 , K ) 




00164100 


806 CONTINUE 




00164200 

00164300 


IF (J.GT.2) GOTO 807 




00164400 


ASS=0 . 




00164500 


ASSR=0. 




00164600 


GOTO 808 




00164700 


807 ASS=“CSP*DYS/DYSS 




00164800 


ASSR=ASS*CPD(I, JM2, K) 




00164900 


808 CONTINUE 




00165000 

00165100 


IF (K.LT.NK) GOTO 809 




00165200 


AFF=0 . 




00165300 


AFFR=0. 




00165400 


GOTO 810 




00165500 


809 AFF=-CFM»DZF/D2FF 




00165600 


AFFR=AFF*C?D ( I, J, KP2) 




00165700 


810 CONTINUE 




00165800 

00165900 


IF (K.GT.2) GOTO 811 




00166000 


ABB=0 . 




00166100 


ABBR=0 . 




00166200 


GOTO 812 




00166300 


811 ABB=-CBP*D2B/DZBB 




00166400 


ABBR=ABB*C?0 (I, J, KM2) 




00166500 


812 CONTINUE 




00166600 

00166700 

00166800 

00166900 


»»####################### 


00167000 




00167100 


•»* MODIFICATION FOR DECK 


BOUNDARIES 


00167200 

00167300 


900 CONTINUE 




00167400 


:f (NOD (im:,u,K) .eq.C) 


GOTO 901 


00167500 


AWW=0 . 0 




00167600 


AWWR=C,C 




00167700 

00167800 


901 CONTINUE 




00167900 


IF (NOD (IPl, J,K) .EQ.C) 


GOTO 902 


00168000 


AEE=0 .0 




00168100 


AEER=0.C 




00168200 

00168300 


902 CONTINUE 




00168400 


IF (NOD(I,UXl,K) .EQ.C) 


GOTO 903 


00168500 


ASS=C.C 




00168600 


ASSR=C.C 




00168700 

00168800 


903 CONTINUE 




00168900 


IF (NOD (I, JPl, K) .EQ.C) 


GOTO 904 


00169000 


ANN=0 .0 




00169100 


ANNR=0.C 




00169200 

00169300 


904 CONTINUE 




00169400 


IF (NODd, J,KMI) .EQ.C) 


GO _ 0 905 


00169500 


A3B=0.C 




00169600 
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A3BR=0 . 



905 CCXTINUZ 

:F (NODC, J,KP1) .EQ.O) goto 906 

Ar?=0.C 

AFFR=0.C 

906 CCN’TINUE 

C #####**ir ###»## ################################# ########### 

C ### #f ### IT f ###################################### ####### 

AP(I, J,K) = (AE(I, J,K)+AW(I, J,K)+AN(I, J,K)+AS (I, J,K) 

& +AF (I, J,K) +AB (I, J,K) +AEE+AWW+ANN+ASS+AFF+ABB) 

& +C0NDE1+C0NDW1+C0NDN1+C0NDS1+C0NDF1+C0NDB1 

AE(I, J,K)=AE(I, J, K) +C0NDE1 
AW(I, J,K)=AW(I, J,K) +C0NDW1 
AN ( I, J, K) =AN ( I , J, K) +CONDN1 
AS ( I , J, K) =AS ( I , J, K) +CONDS 1 
AF(I, J,K) =AF(I, J,K) +CONDF1 
AB ( I, J, K) =AB il, J,K) +CONDB1 

S?(I, J,K)=-ROD(I, J,K) *VOLDT 

SU(I, J,K)= ROD(I, J,K) *VOLDT*TOD(I,J,K) 

SU =SU ( I , J, K) +AEER+AWWR+ANNR+ASSR+AFFR+ABBR 

100 CONTINUE 

C TAKE CARE OF B.C. THRU AN, AS, AE, AW, AF, AB, SP AND SU 

C »•* RADIUS DIRECTION 

DO 500 ;=2,NI 
DO 500 :<=2,NK 

CC S?(I,2,K)=SP(I,2,K) +AS(I,2,K) 
3?(I,2,K)=SP(I,2,K)-AS(I,2,K) 
SD(I,2,K)=SU(I,2,K)+2.0*AS(I,2,K) *CPD(I,1,X) 
S?C,NJ,K)=SP (I,NJ,K)-AN(I,NJ,K) 

S'J(I,KJ,K)=SU(I,NJ,K)+2.*CPD(I,NJP1,K)*AN(I,NJ,K) 

AS(I, 2,K) =0 . 

AN(I,KJ,K)=0. 

500 CCNTINCE 



CYLIC CONDITIONS 



DC 600 
DC SCO 
SD(2 
SD(NI,, 
AW (2 
AE(NI,, 
600 CCNTIN: 



J=2,NJ 
K=2,NK 
,:<)=sc (2 
■,;<)=su (Ni 
■,:<)=o.c 
■,:<)=o.o 



;<)^AW(2 ,J,K)»C(1 ,J,X) 

:<) ♦AECNI, C,K) *C(NI?1, J',X) 



END OF SPHERE 



700 



DO 700 1=2, NI 
DO 700 J=2,NJ 

S? ( I , J, 2 ) =SP ( I , J, 2 ) +AB ( I , J, 2 ) 

S? ( I , J, NK) =S? ( I , J , NX) +AF ( I , J, NK) 
ABC,-',2)=0. 

AFC, J,NX)=0. 

CCNTINCE 



A3SEy.3LE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 
DC 300 X=2,NK 



:0169700 

D0169S00 

DC1699C0 

I \j\J\J 

''ni 

yj d A. / u.wO 
nn<' * 7 nnnn 
s/vX t 

''n« “Tn-nn 
\A\j 1. I d 

CC17C400 

C0170500 

n<\« -7<» nnn 
sj ± Gs^d 
^ n 1 * 7 n* 7 nn 
s/ w X i \j / \j d 

C017C800 

C017C900 

00171000 

00171100 

00171200 

00171300 

00171400 

00171500 

00171600 

00171700 

00171800 

00171900 

00172000 

nni *7*5* nn 
A. / ^ ^ \jd 

00172200 

00172300 

00172400 

00172500 

00172600 

00172700 

00172900 

00172900 

00173000 

00173100 

nni *7<5nnr) 

00173300 

00173400 

00175500 

00173600 

00173700 

00173900 

00173900 

00174000 

00174100 

^ n/^-Nn 
w • t ^ ^ yj 
-n« n r ^ 
, ^ ^ f ^ ^ \j 

00174400 

^ yj A. I z C ^ \J 
/^n - “T/*l''n 
s/ sy i \J 

/'n* *7/Onn 

00174900 

nn - “ 7 i“nn 
^ ^ ^ yj 

00175* 00 
00175200 

nn - nz r\ 
^ ^ I ^ ^ yj 

*-n - *7zr‘*'n 



nn - ns* 7 nn 
^ yj A / w ■ -/ ^ 

ccnssDc 

DCn59D0 

00176100 

00176200 

00176300 
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DO 300 J=2,NJ 
DO 300 :=2,NI 

APd, J,K)=AP(I, J, K)-SP(I, J,K) 
300 CONTINUE 



C VOLUME MASS SOURCE INPUT 

VOLT=0 . 0 
DO 113 1=2, NI 
DO 113 J=2,NJ 
DO 113 K=16,17 

IF (NHSZ(I,v:,K) .EQ.O) GOTO 113 
DXI =XL(I ,J,K,0,0) 

DYJ =YL(I,J ,K,0,0) 

D2K =ZL(I,J,K ,0,0) 
VOL=DXI*DYJ»D2K*H*H‘H 
VOLT=VOLT+VOL 
113 CONTINUE 

DO 111 1=2, NI 
DO 111 J=2,NJ 
DO 111 K=16,17 

IF (NHS2(I, J,K) .EQ.O) GOTO 111 
DXI =XL(I ,J,K,0,0) 

DYJ =Y1(I,J ,K,0,0) 

D2K =2L(I,J,K ,0,0) 

QQQ=Q’H/ (U0*CP0*RHO0*TA) 

QMS= 1.0 

QMS = QMS»H/ (U0*RHO0) 
VOL=DXI*DYJ*D2K 

SU ( I, J, K) =SU ( I, J, K) +VOL*QMS/VOLT 
111 CONTINUE 



C **» SOLVE FOR C 

CALL TRID (2,2,2,NI,NJM1,NK,C) 

C **** RESET CONCENTRATION AT R=0.0 AND END OF SPHERE 

DO 81 K=1,NXP1 
AVT=0 . 0 
DO 82 :=2,n: 

AVT=AVT*(CC,2,K) /NIMl) 

82 CC.NTINUE 

DO 83 :=:,n:?i 
C(1,1,K)=AV7 

83 CONTINUE 
81 CONTINUE 

DO 74 :=:,n:?i 
DO 74 J=:,NJ?1 
C(I,J,1)=CC,U,2) 

0(1, J,NK?1) =C(I,J,NK) 

74 OONTINUE 

C *** FOR SURFACE MASS EXCHANGE WITH SURROUNDING 

DC 84 1=2, NI 
DO 84 K=2,NK 
C(I,NJ?1,K)=CC,NJ,K) 

84 CONTINUE 



C '•* FOR CYIIC CONDITION 



DO 80 J=:,NJ?1 



00176500 

C0176600 

00176700 

00176800 

00176900 

00177000 

00177100 

00177200 

00177300 

00177400 

00177500 

00177600 

00177700 

00177800 

00177900 

00178000 

00178100 

00178200 

00178300 

00178400 

00178500 

00178600 

00178700 

00178800 

00178900 

00179000 

00179100 

00179200 

00179300 

00179400 

00179500 

00179600 

00179700 

00179800 

00179900 

00180000 

00180100 

00180200 

00180300 

00180400 

0018050C 

00180600 

00180700 

00180800 

00180900 

00181000 

wvji.01x>>>w 

00181200 

00181300 

00181400 

00181500 

00181600 

00181700 

00181800 

00181900 

00182000 

00182100 

00182200 

00182300 

00182400 

00182500 

00182600 

00182700 

00182800 

00182900 

00183000 

00183100 

00183200 
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DO 80 K=1,NKP1 
C(l, J,K)=C(NI, J,K) 
C(NIP1, J,K)=C(2,J,K) 
80 CONTINUE 

RETURN 

END 



C 

C 



SUBROUTINE CALU 



COMMON/R4/XC(93) , YC(93) , ZC ( 93 ) , XS ( 93) , YS ( 93 ) , 2S (93) , 

& DXXC(93) ,DYYC(93) ,DZZC(93) ,DXXS (93) , DYYS (93) , DZZS (93) 

COMMON/BLl/DX,DY,DZ,VOL,DTIME,VOLDT,THOT,TCOOL,PI,Q,QR 
COMMON/BL7/N I , N IP 1 , NIMl , N J, NJP 1 , N JMl , NK, NKP 1 , NKMl 
& , NIP2 , N JP2 , NKP2 , NA, NAPl , NAMl , NB , NBP 1 , NBMl , KRUN , NCHIP , N JRA, NWRP 

COMMON/BL12/ NWRITE , NTAPE, NTMAXO , NTREAL, TIME, SORSUM, ITER 
C0MM0N/BL14/HC0EF,T:NF,CNT, ABTURB,BTURB,VISL,VISMAX,QC0RRT,PM1, PM200185200 
COMMON/BL16/ CONSTl , CCNST2, CONST3 , CONST4 , CONST6, NT, UO , H, UGRT, BUOY, 00185300 
& CPO, PRT, CONDO, VIS0,RHO0, HR, TR,TA,DTEMP,TWRITE,TTAPE,TMAX,GC,RAIR00185400 



00183300 

00183400 

00183500 

00183600 

00183700 

00183800 

00183900 

00184000 

00184100 

00184200 

00184300 

00184400 

00184500 

00184600 

00184700 

00184800 

00184900 

00185000 

00185100 



00185500 

00185600 

00185700 

00185800 

00185900 

00186000 

00186100 

00186200 

00186300 

00186400 

00186500 

00186600 

00186700 

00186800 

00186900 

00187000 



COMMON/BL20/SIG11 (22, 16,32) ,SIG12 (22, 16,32) ,SIG22 <22, 16,32) 

& ,SIG13(22, 16,32) ,SIG23 (22, 16,32) ,SIG33 (22, 16,32) 

C0MM0N/BL22/ICHPB(1C) ,NCHPI (10) , JCHPB (10) , NCHPJ (10) , KCHPB (10) , 

& NCHPK(IC) ,TCHP(10) ,CPS(10) ,CONS(10) ,WFAN(10) 

COMMON/BL31/ TOD (22, 16, 32) , ROD (22, 16, 32) , POD (22, 16, 32) 

& ,COD(22,16,32) ,UOD(22,16,32),VOD(22, 16,32) ,WOD(22, 16,32) 

COMMON/BL32/ T (22 , 1 6, 32) , R (22, 16,32) ,P (22, 16,32) 

5 , C (22, 16,32) ,U (22, 16,32) ,V (22, 16,32) ,W (22, 16,32) 

COMMON/BL33/ TPD(22, 1 6, 32 ) , RPD ( 22 , 1 6, 32 ) , PPD (22 , 1 6, 32 ) 

6 ,CPD(22, 16,32) ,UPD(22, 16,32) ,VPD(22, 16,32) ,WPD(22, 16,32) 

COMMON/BL34/ HEIGHT (22, 16,32) , REQ (22 , 16, 32) , 

& SMP(22,16,32),SMPP(22,16,32) ,PP(22,16,32), 

& DU (22, 16, 32) ,DV(22,16,32) ,DW(22, 16,32) 

COMMON/BL36/AP(22,:S,32) ,AE(22, 16, 32) , AW (22 , 16, 32) , AN (22, 16, 32) , 

& AS (22, 16, 32) ,AF(22, 16,32) ,AB(22, 16, 32) , 

& SP (22, 16, 32) ,SU (22, 16, 32) ,RI (22, 16,32) 

C0MM0N/3L37/ VI S (22 , 1 6, 32 ) , COND (22, 16, 32) , NOD (22, 16, 32) , RWALL (579) 00187100 
S ,CPM(22, 16,32) ,KSZ (3,2) ,NHSZ (22, 16, 32) ,RESORM(93) 00187200 

00187300 

* CALCULATE COEFFICIENTS 00187400 

00187500 
00187600 
00187700 
00187800 
00187900 
00188000 
00188100 
00188200 
00188300 
00188400 
00188500 
00188600 
00188700 
00188800 
00188900 
0018900C 
001891CC 
00189200 
00189300 
00189400 
00189500 
00189600 
00189700 
C018980C 
00189900 
00190CC0 



DO ICC K=2,NK 

K?2=K*2 

K?1=K*1 

KK1=K-1 

KV2=K-2 

DO 100 J=2,NJ 

J?2=Jt2 

J?l=J-rl 

JM1=J-1 

JM2=J-2 

DO 100 1=2, NI 

:P2=I-2 

IPi=I-l 

IM1=I-1 

IM2=I-2 

IF (I. EC. 2) 

IF (I. EC. 2) 

IF (I. EC. 3) 

IF (I.EC.NI) 



IM1=NI 

IM2=Niy.l 

IM2=NI 

IP2=3 



CENTRAL LENGTH 

DXP1=XL(IP1, J, K,:,0) 
DXI =XL(I ,J,K,:,0) 



THE SCALE CONTROL VOLUME 
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DXM1=XL(IM1, J,K, 1,0) 



DYP1=YL(I, JP1,K,1,0) 

DYJ =YL(I,J ,K,1,0) 

DYM1=YL(I, JM1,K, 1,0) 

DZP1=ZL{I, J,KP1, 1,0) 

DZK =ZL(I,J,K ,1,0) 

DZM1=ZL(I, J,KM1, 1,0) 

*• SURFACE LENGTH OF THE CONTROL VOLUME 

DXN=XL(I,sJPl,K, 1,2) 

DXS=XL(I, J ,K, 1,2) 

DXF=XL(I, J,KP1,1,3) 

DXB=XL(I, J,K ,1,3) 

DYF=YL(I, J,KP1, 1,3) 

DYB=YL{I, J,K , 1,3) 

DYE=YL(IP1, J,K, 1, 1) 

DYW=YL(I ,J,K, 1,1) 

DZE=ZL(IP1, J,K, 1, 1) 

DZW=ZL(I , J, K,l,l) 

DZN=ZL(I, JP1,K, 1,2) 

DZS=ZL(I, J ,K, 1,2) 

CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR U 

DXEE=XL(IP2, J,K,1,1) 

DXE =XL{IP1, J,K, 1, 1) 

DXW =XL{I ,J,K,1,1) 

0XWW=XL{IM1, J,K, 1, 1) 

DYNN=YL(I, JP2,K,1,2) 

DYN =YL(I,JP1,K,1,2) 

DYS =YL(I,J ,K,1,2) 

DYSS=YLC, JM1,K,1,2) 

DZFF=ZL{I, J,KP2,1,3) 

OZF =ZL{I, J,KP1, 1,3) 

DZB =ZLC,J,K ,1,3) 

DZBB=ZL(I, J,KM1, 1,3) 

DEFINE THE AREA OF THE CONTROL VOLUME 



DXYF=DX?*DYF 

DXYB=DX3*DY3 

DYZE=DYE*DZE 

DYZW=DYW*DZW 

DZXN=DZN*DXN 

DZXS=DZS*DXS 

VOL=DXI*DYJ*DZK 

VOLDT=VOL/DTIME 

ZXOYN=DZXN/DYN 

ZXOYS=DZXS/DYS 

XYOZF=DXYF/DZF 

XYOZB=DXYB/DZB 

YZOXE=DYZE/DXE 

YZOXW=DYZW/DXW 



USE SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 
PHYSICAL PROPERTIES AND FLUX ON THE SURFACES. 



00190100 

00190200 

00190300 

00190400 

00190500 

00190600 

00190700 

00190800 

00190900 

00191000 

00191100 

00191200 
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00191900 
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00192400 
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00192600 

00192700 

00192800 

00192900 

00193000 

00193100 

00193200 

00193300 

00193400 

00193500 

00193600 

00193700 

00193800 

00193900 
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00194100 

00194200 

00194300 

00194400 

00194500 

00194600 

00194700 

00194800 

00194900 
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00195900 

00196000 
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00196200 

00196300 

00196400 

001966CC 

CC19670C 

0C196800 
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GN’E=SILIN(R(I ,-*Pl,K),R(I , J, K) , DYP 1 , DYJ) *V ( I ,J?1,K) 

GNW=SILIN JP1,K) J,K) ,DYP1,DYJ) *V ( IMl , J? 1 , K) 
GSE=SILIN(R{I ,JM1,K),R(I , J, K> , DYMl, DYJ) *V ( I ,J ,K) 

GSW=SILIN (R(IM1, JM1,K) J,K) ,DYM1,DYJ) 'VCIMl, J ,K) 

GE =SILIN(R(IP1, J,K),R(I , J, K) , DXEE, DXE) *U ( IPl , J, K) 

GP =SILIN(R(IM1,J,K),R(I , J, K) , DXW , DXE) »U (I ,J,K) 

GW =SILIN (R ( IM2 , J, K) , R (IMl , J, K) , DXWW, DXW) *U ( IMl , J, K) 

GFE=SILIN(R(I ,J,KP:),R(I , J, K) , DZP 1 , DZK) *W ( I ,J,KP1) 

GPW=SILIN (R ( IMl , J, K?1 ) , R ( IMl, J, K) , DZP 1 , DZK) »W ( IMl , J, KPl ) 
GBE=SILIN(R(I ,J,KM1),R(I , J, K) , DZMl, DZK) »W (I ,J,K ) 

GBW=SILIN(R(IM1, J,XM1) ,R(IM1, J,K) ,DZM1,DZK) 'WdMl, J,K ) 

CE=0.5* (GE+GP) »DYZE 
CW=0.5* (GP+GW) ‘DYZW 

CN=SILIN (GNE, GNW, DXE, DXW) *DZXN 
CS=SILIN (GSE, GSW, DXE, DXW) »DZXS 

CF=SILIN (GFE, GFW, DXE, DXW) ‘DXYF 
CB=SILIN (GBE, GBW, DXE, DXW) »DXYB 

VISE=VIS(I ,J,K) 

VISW=VIS(IM1, J,K) 

v:SN= (VISd , J?1,K)+VIS(I ,J,K) + 

S VISdMl, J?1,K)+VIS(IM1, J,K) ) /4 .0 

VISS= (VISd ,JMl,K)+VISd ,J,K) + 

i VISdMl, JM1,K)+VIS (IMl, J,K) ) /4 .0 

VISF= (VISd , J,KP1)+VIS(I ,J,K) + 

i VISdMl, J, KPl) +VIS (IMl, J,K) ) /4 .0 

VISB= (VISd , J,KM1)+VIS(I .,J,K) + 

i VIS(IMl,J,KMl)+VIS(IMl,J,K))/4.0 



VISNl=ZXOYM*VrSN 

vissi=zxoYS*vrss 

VISE1=YZ0XE*VISE 

VISWl=YZOXWVtSW 

VISFl=XYOZF*VISr 

VISB1=XY0Z3*V:S3 



GEP=(A3S(CE) -CE) *DXE/DXI/16. 
D.EM=(A3S(CE)-CE) 'DXE/DXPl/lS. 
GW?=(A3 S(Ca) -^CK) 'DXW/DXMl/lS. 
GWM= (ABS (CW) -CW) *DXW/DX:/ 16 . 



CN'P=(ABS(CN’) +CN) 'DYPl'DYJ/ (DYN* (DYN+DYS ) )/8. 
CN’M=(ABS(CX)-CN) “DYPl’DYJ/ (DYN* (DYN+DYNN) )/8. 

CSP=(ABS (CS) rCS) ‘DYMl'DYJ/ (DYS* (DYS+DYSS) ) /8. 

CSM= (ABS (CS) -CS) *DYM1 *DYJ/ (DYS* (DYS+DYN ) ) /8 . 

CFP=(ABS(CF) -fCF) *DZP1*DZK/ (DZF* (DZF+DZB ) ) / 8. 
CFM=(ABS(CF)-CF) *DZP1 *DZK/ (DZF* (DZF+DZFF) )/8. 

C3P=(ABS (C3) -CB) *DZM1*DZK/ (DZB* (DZB+DZBB) )/8. 
C3M=(A3S(C3)-C3) *DZM1 *DZK/ (DZB* (DZB+DZF ) )/8. 

AEd, J,K) =-.5’CE+CE?-CEM* ( 1 . -DXE/DXEE) +CWM*DXW/DXE-V:SE1 
AW (I , J, K) = . 1 "CW*CWM-CW? * ( 1 . -DXW/DXWW) +CEP *DXE/DXWt V; SW l 



AN (I, J, :<) =- . ;; 'DYJ/DYN*CNVCN?*CNM* (1 . -DYN/DYNN) +CSM* DYS/DYN^Vl 3N1 
AS (I, J, K) = 'DYJ/DYS*CStCSM+CSP* ( 1 . -DYS/DYSS) +CNP * DY.N/DYS+VISSl 
AF d , J, K) =- . D 'DZK/DZF'CF-CFP-CFM* ( 1 . tDZF/DZFF ) +CBM*DZ 3/DZF^VISF1 
A3(I, J,K) = .:;'DZK/DZ3*C3-CBM-rCBP* ( 1 . -DZB/DZBB) -<-CFP * DZF/DZBf VI S31 



001963C0 

C0197000 

C0197100 

C01972CC 

0C197300 

00197400 

00197500 

00197600 

00197700 

00197800 

00197900 

00198000 

00198100 

00198200 

00198300 

00198400 

00198500 

00198600 

00198700 

00198800 

00198900 

00199000 

00199100 

00199200 

00199300 

00199400 

00199500 

C0199600 
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00199900 

00200000 

00200100 

00200200 

00200300 

00200400 
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00201000 
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00201200 
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r\ rt ^ n ^ rs 

^ ^ A. OOO 
“7 ^ 
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00201900 
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00202800 

00202900 
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00203200 

00203300 

00203310 

00203320 

00203330 
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801 AII=-C£X*DXE/DXE£ 

AEER=AEE*UPD ( IP2, J, K) 
8C2 CCXTIXwE 

803 AWW=-C>:?*DXW/DXWW 
AWWR=AXW*UPD ( IM2, J, K) 

804 CCXTIN'JE 

:? (J.ET.NJ) GOTO 805 
ANN=0. 

ANNR=C. 

GOTO 8C6 

805 ANN=-CXM*DYN/DYNN 
ANNR=ANN*UPD (I, J?2, K) 

806 CONTINUE 

IF (J.GT.2) GOTO 807 
ASS=0 . 

ASSR=0, 

GOTO 80S 

807 A5S=-CS?*DYS/DYSS 
ASSR=ASS*UPD (I, JM2, K) 

808 CONTINUE 

:? (K.IT.NK) GOTO 809 
A?F=0 . 

Ar?R=0. 

GOTO 8^0 

809 AFF=-CFV*D2F/D2FF 
AFFR= AFF * IJP D ( I , J, KP 2 ) 

810 CCNTIXGE 

IF (K.GT.2) GOTO 811 
ABB=0. 

ABBR=C. 

GOTO 812 

811 A5B=-CE?*DZ3/DZBB 
A3BR=A33*UPD ( I, J, KM2) 

812 CCXTINGE 



C ##«?**»»»»*»»»»»*«» »«ir If IT 

C y.COIFICATIOX FOR DECK BOUNDARIES 

900 CONTINUE 

IF (NOD CX2, J,K) .EQ.O) GOTO 901 
AVwv=C . 0 
AwVWR=C , I 

901 CONTINUE 

IF (NOOdPI, J,K) .EQ.O) GOTO 902 

AEE=C,C 

AEER=C.: 

902 CONTINUE 

IF (NOD (I, JM1,K) .£0.0) GOTO 903 

ASS=C.O 

ASSR^C.: 

903 CONTINUE 

IF (NOD {I,U?1,:0 .£0.0) GOTO 904 

ANN=0 

ANNR=C.: 

904 CONTINUE 

IF (NOO (I,wM<Ml) ,E0.0) GOTO 905 



00203340 

v0203400 
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00206500 

00206600 

00206700 

00206800 

00206900 

voZU f \j 

00207100 

00207200 

00207300 

00207400 

■J • WWW 
wwZw ' Cwv<> 
w w ^ w ' ' w w 

00207800 

^ yj C.\j • 7w w 
00208000 

:C2082CC 

wwZUOJwO 

00208400 

00208600 
wwZoC 'ww 
00208800 
00208900 

w wZu7www 
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wwZw7«.ww 

00203200 

00209300 

w wZw w w 

00209500 
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^yjZ.sj 7 :? V w 
• ^ 
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AB3=0.C 
ABBR=0 . C 

905 CONTINUE 

IF (NOD (I,U,KP1) .EQ.C) GOTO 906 

AFF=0.C 

AFFR=0.C 

906 CONTINUE 

C ######?»»»######*########*########################### 



C **• 3U FROM NORMAL STRESS 

RE=(S:G11(I , J,K)-(U(IP1,J,K)-U(I , J,K) > *vise/dxe> *dyze 

RW=(SIG11 (IMl, J,K)-{U(I , J,K)-U(IM1, J,K) ) »VISW/DXW) *DYZW 

RN=(SIG12 (I, JP1,K)-(U (I, JP1,K)-U(I, J , K) ) *VISN/DYN) *DZXN 
RS=(SIG12(I,J ,K)-(U(I,J ,K)-U(I, JM1,K) ) *VISS/DYS) *DZXS 

RF=(SIG13 (I, J,KP1)-(U(I, J,KP1)-U(I, J,K ) ) *VISF/DZF) *DXYF 
RB=(SIG13 (I, J,K )-(0(I,J,K ) -U (I, J, KMl) ) *VISB/DZB) *DXYB 

C *** SO FROM CURVED STRESSES AND ACCELERATIONS 

AVG12=0.£- (SIG12 (I, JP1,K) +SIG12 (I, J,K) ) 

AVG13=0.5* (SIG13 (I,w’,XPl) +SIG13 (I, J,K) ) 
AVG22=SILIN(SIG22(I,J,X) ,SIG22(IM1, J,K) ,DXE,DXW) 
AVG33=SIL:N(SIG33 (I, J,K) , SIG33(IM1, J,K) ,DXE,3XW) 

AU1=U(I,J,K) 

AU2=BILIN (V(I ,JP1,K),V(I , J, K) , DYJ, DYJ, 

S V(IM1,UP1,K),V(IM1, J, K) ,DYJ,DYJ, DXE, DXW) 

AU3=BILIN(W(I ,J,KP1),W(I , J, K) , DZK, DZK, 

4 W(IM1,U,KP1) ,W(IM1, J,K) ,DZK,DZK, DXE, DXW) 

ar=s:i:n(R(i,u, k) ,r(imi, j,k> ,dxe,dxw> 

ARU:2=AR*AU:*AU2 

ARU13=AR*AU1*AU3 

ARU22=AR*AU2*A'J2 

ARU33=AR*AU3*AU3 

RRY=(AVG12-ARUi2) *DZK* (DXN-DXS) 

RRZ= (AVG13-ARU1 3) *DYJ* (DXF-DXB) 

RRX= (AVG22-ARU22) *DZK* (DYE-DYW) + 

4 (AVG33-AR(.;3.1) *DYJ* (DZE-DZW) 

A? (I, J, K) =AE ( 1 , J, K) +AW ( I, J, K) +AN ( I, U, K) +AS ( I , U, X) 

4 -AF( i,U,X)+AB(I,U,K)+AEE+AWW+ANN+ASS-rAFF^A3B 

SP C, U,K)=-(ROD ( I, J,K) *DXW+R0D(IM1,U, K) *DXE) / (DXWi-DXE) 'VOLDT 
sue, J, K) = (ROD (I, J,K) *DXW+R0D (IM1,U, K) *DXE)/ (DXWi-DXE) * VOLDT 
4 *UOD(I,J,K) 

sue, J, K) =3U ( : , U, K) +DYJ*DZK* (P ( IMl , J, K) -P < I , J, K) ) 

4 -AEER‘AWWR-rANNR+ASSR+AFFR-^ABBR 

4 -RE-RW-i-RN-RS■^RF-RB+RRY+RRZ-RRX 

4-BU0Y*S:N (ZC(K) ) ' ( (R(I, U, K)-REQ (I, J,K) ) *DXW*CCS (XC (I) ) * (R (IMl , 

4 J, k)-rec(:m: ,-,,k)) *dxe*cos (xccmd ) ) / (Dxw+dxe) *vol 

:0C CONTINUE 

C TAKE CARE OK 3.C. THRU AN, AS , AE, AW, AF, AB, S? AND SU 

C •** RADIUS DIR'-.CTION 
DO see K=2,NK 

DC see 1 = 2 , 

cc o?(:,2,K)=s?( ; , .',K) -AS(i,2,:<) 
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00210800 
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00211100 
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00211400 
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00211800 
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00212400 
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00212800 

00212900 

00213000 

00213100 

00213200 

00213300 

00213400 

00213500 
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00213700 

00213800 

00213900 

00214000 

C02141C0 

00214200 

00214300 

00214400 

00214500 
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CC2149C0 

C0215CCC 

002152CC 

C02153CC 

0C215400 

C02155CC 

00215600 

00215700 
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y^ ^ \J 

c* ^ 
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00216200 
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yJ\J^ 

002166CC 

00216700 

00216800 
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S?(I,2,K)=SP C,2,K)-AS(:,2,K) 


00216900 




SU(I,2,K)=Su(I,2,K)-2,0*U(I,l,K) *AS(I,2,K) 


00217000 




S? (I,N'J,K)=S? C,NJ,K)-AN(I,KJ,K) 


00217100 




AN(I,NJ,K)=0. 


00217200 




AS(I,2,K)=0. 


00217300 




500 CCNTINVE 


00217400 

00217500 




CYLZC CONDITION 


00217600 

00217700 




DO 502 K=2,NK 


00217800 




DO 502 T=2,NJ 


00217900 




SU(2 ,J,K)=SU(2 ,T,K)+AW(2 ,J,K)»U(1 ,J,K) 


00218000 




SU(NI, J,K)=SU(NI, J, K) +AE(NI, J,K) •U(NIP1, J,K) 


00218100 




AW(2 ,J,K)=0.0 


00218200 




AE(NI, J,K)=0.C 


00218300 




502 CONTINUE 


00218400 

00218500 


c 


•** FRONT AND BACK WALLS 


00218600 

00218700 




DO 600 1=2, NI 


00218800 




DO 600 J=2,NJ 


00218900 

00219000 


c 


*»• SLIP WALLS 


00219100 




SP(I, J,2)=SP(I,J,2) +AB(I, J,2) 


00219200 




SP(I, J,NK)=S? (I, J,NK) ^AF(I, J,NK) 


00219300 

00219400 




AF(I, J, NK)=0. 


00219500 




AB(I, J, 2)=0. 


00219600 


600 CONTIKw'E 


00219700 

00219800 

00219900 

00220000 

00220100 




I? (NCHIP.EQ.O) GOTO 105 


00220200 


C 


#########^ss«###tir#«##t##t## ################### #t ######## 


00220300 


c 


#»#### ######### 


00220400 


c 


*** MODIFICATION FOR DECK BOUNDARIES 


00220500 

C0220600 




DO 101 X=1,NCHI? 


00220700 




:3=ICH?5(N) 


00220800 




IE=I3^NCHPI (N)-l 


00220900 




i3mi=:b-i 


00221CCC 




:epi=:e-i 


00221100 




J3=JCH?3(N) 


00221200 




JE=JB-NCH?j (N)-l 


00221300 




J3M1=J3-1 


00221400 




JE?1=JI-1 


00221500 




K3=KCH?3 (N) 


00221600 




KE=K3-NCH?K(N)-: 


1. i 




K3M1=K3-1 


00221800 




KEP1=K£-1 


00221900 

00222CCC 




DO 1C2 J=JB,JE-1 


00222100 




DO 102 K=KB,KE-l 


00222200 




AEdBMl, J,K)=C.C 


00222300 




AWdEPl, J,K)=0.0 


00222400 

00222500 




102 CONTINUE 


00222600 

00222700 




DO 105 :=i3 , :e 


00222800 




DO 10 3 K=K3,KE-’: 


00222900 




S? (I , J3X.I , K) =S? ( I , J3X: , K) -AN (I, J3M1 , K) 


00223000 




ANd, J3M1,K)=0.0 


00223100 

00223200 




S? d,JE,K)=S? ( -AS d,JE,K) 


00223300 




ASd, JE,K)=0.C 


C02234C0 




103 CONTINUE 


00223500 
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30 iC6 X— -a,i£ 

00 -.06 

S? ( I, J, KBMl ) =S? ( I , J, KBMl) -AF ( I, J, KBMl ) 
AFC, J,KBM1)=0.0 

S? (I, J, KE) =SP (I,J, KE) -ABC, J,KE) 

ABC, J,KE)=0.0 
106 CONTINUE 



*** FOR THE CELLS INSIDE OF THE DECKS 

DO 104 I=IB, IE 
DO 104 J=JB,JE-1 
DO 104 K=KB,KE-1 
SPC, J,K)=-1.0E20 
AWC, J,K)=0. 

AEC, J,K)=0. 

ASC, J,K)=0. 

ANC, J, K)=0. 
sue, J,K)=0. 

104 CONTINUE 
101 CONTINUE 

105 CONTINUE 

####«#»###########«###################################### 



*** ASSEMBLE COEFFICIENTS AND SOLVE DIFFERENCE EQUATIONS 

DO 301 K=2,NK 
DO 301 J=2,NJ 
DO 301 1=2, NI 
DYJ=YL(I, J,K, 1,0) 

DZK=ZLC, J,K, 1,0) 

DYZ=DYJ*DZK 

A? (I , J, K) =AP ( C J, K) -S? ( I , J, K) 

DU (I, J, K) =DYZ/AP ( I , J, K) 

301 CONTINUE 



*** SOLVE FOR U 

CALL TRIO (2,2,2,NI,NJ,NK,U) 

00 74 :=2,n:pi 
00 74 J=2,NJP1 

•)— u( ..,w,2) 

UC, J,NKP1) =U (I, J,NK) 

74 CONTINUE 



OO 79 I=:,NIP1 
00 79 K=:,NKP1 
UC,:,K)=U(C2,K) 
79 CONTINUE 



IF (NCHIP.EQ.O) GOTO 112 

•** PESET THE VELOCITY INSIDE OF DECK 

00 lie N=1,NCKI? 

:b=ich?B{N) 



00223700 
00223800 
00223900 
00224000 
00224100 
00224200 
002243CC 
00224400 
00224500 
00224600 
00224700 
00224800 
00224900 
00225000 
00225100 
00225200 
00225300 
00225400 
00225500 
00225600 
00225700 
00225800 
00225900 
00226000 
00226100 
00226200 
00226300 
00226400 
00226500 
00226600 
00226700 
00226800 
00226900 
00227000 
00227100 
00227200 
00227300 
00227400 
00227500 
00227600 
00227700 
00227800 
00227900 
00228000 
\j C » kj 

00228200 
00228300 
00226400 
002285CC 
00228600 
I \J 

00228800 

00228900 

00229000 

GC22920C 

0C2293C0 

C022940C 

C02295C0 

CC2296CC 

C022970C 

CC22990C 

GC2299CC 

f\ ^ r> - r> 

0C230200 

0C23C300 

GC23C4CC 
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:e=ib-nchpi (K)-i 

J3=JCK?B(N) 

JE=JB+NCKPJ(N)-1 

K3=KCHPB(N) 

KE=KB-rKCH?K(N)-i 
DO 108 i=:b, IE 
DO 108 J=J3,JE-1 
DO 108 K=K3,KE-1 
U(I, J,K)=C.C 
108 CCNTINjE 
::c CONTI XDE 
112 CONTINUE 

C ###########«#####«############################## 

C ####»#«#»#ff# ###################»#«########################### 

RETURN 

END 



SUBROUTINE CALV 



C0230500 

C0230600 

C0230700 

C0230800 

C0230900 

CC231000 

00231100 

00231200 

00231300 

00231400 

00231500 

00231600 

00231700 

00231800 

00231900 

00232000 

00232100 

00232200 

00232300 

00232400 

00232500 

00232600 

00232700 

00232800 

00232900 

00233000 

00233100 

C0233200 

0C2333O0 

C0233400 

00233500 



COMMON/R4/XC{93) , YC (93 ) , ZC ( 93 ) , XS (93) , YS ( 93 ) , 2S (93) , 

& DXXC(93) ,DYYC(93) ,DZZC(93) ,DXXS(93) , DYYS (93 ) , DZZS { 93) 

COMMON /BLl/DX, DY, DZ , VOL, DTIME, VOLDT, THOT, TCOOL, PI , Q, QR 
COMMON / 3L7 /N: , N I? 1 , NIMl , N J, NJP 1 , N JMl , NK, NKP 1 , NKMl 
& , NIP2 , N JP2 , NKP2 , NA, NAP 1 , NAMl , NB , NBP 1 , NBMl , KRUN , NCHIP , N JRA, NWRP 

COMMON/BL12/ NWRITE, NTAPE, NTMAXO, NTREAL, TIME, SORSUM, ITER 
C0MM0N/3L16/ CONSTl , CONST2 , CONST3 , CONST4 , CONST6 , NT, UC , H, UGRT, BUOY, 00233600 
& CPO, PRT, CONDO , VISO, RHOO , KR, TR, TA, DTEMP, TWRITE, TTAPE, TMAX, GC, RAIR00233700 
COMMON/BL20/SIG11 (22, 16,32) ,SIG12 (22, 16,32) ,SIG22 (22, 16,32) 00233800 

& , SIG13 (22, 16,32) ,SIG23 (22, 16,32) ,SIG33 (22, 16,32) 00233900 

COMMON/BL22/ICHPB(10) ,NCHPI (10) , JCHPB (10) , NCHPJ (10) , KCHPB (10) , 00234000 

& NCHPK (10) ,TCKP (10) , CPS (10) , CONS (10) ,WFAN(10) 00234100 

COMMON/BL31/ TOD (22, 16, 32) , ROD (22, 16, 32) , POD (22, 16, 32) 00234200 

& rCOD(22, 16, 32) ,UOD (22, 16,32 ),VOD (22, 16,32 ),WOD (22, 16, 32) 00234 300 

COMMON/3L32/ T (22 , 1 6, 32) , R (22 , 1 6, 32 ) , P (22 , 1 6, 32 ) C0234 400 

& , C (22, 16,32) ,U (22, 16,32) ,V (22, 16,32) ,W (22, 16,32) C0234 500 

COMMON/3133/ TPD (22, 16, 32 ) , RPD ( 22 , 1 6, 32 ) , PPD(22, 16, 32) 00234 600 

& ,C?D(22, 16,32) ,U?D (22, 16,32) ,VPD(22, 16, 32) , WPD (22, 16,32) 00234700 

COMMON/5134/ HEIGKT(22, 16,32) ,REQ(22, 16,32) , 00234800 

& SM? (22, 16, 32) , SMPP (22, 1 6, 32) , PP (22 , 1 6, 32 ) , 00234 900 

& DU (22, 16,32) ,DV(22, 1 6, 32 ) , DW (22 , 16,32) 00235000 

COMMONV313 5/A? ( 22 , 1 6, 32 ) , AE (22 , 16 , 32 )‘, AW (22 , 1 6, 32) , AN (22, 16,32) , 00235100 

& AS (22, 16, 32) ,AE (22, 16,32) , A3 (22, 16, 32) , 00235200 

& S? (22, 15,32) , 5U(22, 16,32) ,RI (22, 16, 32) 00235300 

COMMON/5137/ VIS (22 , 16, 32 ) , COND (22,16,32) , NOD (22, 16,32) , RWALL (579) 00235400 



,CPM(22, 16,32) ,HSZ (3,2), NHSZ (22, 16, 32) , RESORM ( 93 ) 


00235500 

00235600 

00235700 


CALCULATE COEFFICIENTS 


00235800 

00235900 


DO IOC K=2,NK 


00236000 


KP2=K^2 


00236100 


K?1=K*1 


0C236200 


KM1=K-1 


C0236300 


KM2=K-2 


30236400 


DO xCC w==j,Nw/ 


0023650C 


J?2=U-2 


00236600 


sy r' - T ^ 


00236700 


JM1=J-1 


00236800 


JX2=J*-2 


00236900 


DO ICC >2,n: 


00237000 


i?2=:-2 


00237100 


I ? 1 = I * 1 


00237200 
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IMl =1-1 




0C2373C0 


iy^=E-i 




002374C0 


Ir (1.ZQ.2) IM2=NIM1 




G023750C 


Ir (l.IQ.NI) :?2=3 




00237600 

0C2377C0 

C02378C0 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 


00237900 

0023800C 


DXP1=X1(IP1, J,K,2,0) 




00238100 


3X1 =X1(I ,J,K,2,C) 




00238200 


0XM1=X1(IM1, J,K,2,0) 




00238300 

00238400 


DYP1=Y1(I, JP1,K,2,0) 




00238500 


DYJ =YMI,J ,K,2,0) 




00238600 


DYM1=Y1(I, JM1,K,2,0) 




00238700 

00238800 


D2P1=2L(I, J,KP1,2,C) 




00238900 


D2K =21(1, J,K ,2,0) 




00239000 


D2M1 = Z1(I, J,KM1,2,0) 




00239100 

00239200 


SURFACE LENGTH OF THE 


CONTROL VOLUME 


00239300 

00239400 


DXN=XL(I, JP1,K,2,2) 




00239500 


DXS=X1(I, J ,K,2,2) 




00239600 


DXF=XL(I, J,KP1,2,3) 




00239700 


DXB=XLC, J,K ,2,3) 




00239800 

00239900 


3YF=YL(I, J,KP1,2,3) 




00240000 


0YB=Y1C, J,K ,2,3) 




00240100 


DYE=Y1(I?1, J,K,2, 1) 




C024C200 


DYW=YL(1 , J,K,2, 1) 




00240300 

00240400 


D2E=21(1P1, J,K,2, 1) 




C0240500 


D2W=21(1 , J,K,2, 1) 




00240600 


D2N=Z1(1, JP1,K,2,2) 




00240700 


D2S=Z1(1, J ,K,2,2) 




00240800 

00240900 


CENTRAL LENGTH OF THE 


STAGGERED CONTROL VOLUME 


00241000 

00241100 


DXEE=X1(1P2, J,K,2, 1) 




00241200 


DXE =X1(I?1, J,K,2, 1) 




00241300 


3XW =XL(1 ,J,K,2,1) 




00241400 


DXWW=XL(1M1, J,K,2, 1) 




^ A ^ 

yj 

00241600 


DYNN=Y1(1, J?2,K,2,2) 




00241700 


DYN =Y1(1, JP1,K,2,2) 




yj aCww 


3YS =Y1C,J ,K,2,2) 




00241900 


3YSS=Y1C, JM1,K,2,2) 




00242100 


3ZrF=ZlC, J,K?2,2,3) 




00242200 


32? =Z1(1, J,K?1,2, 3) 




00242300 


3Z3 =Z1(1,J,K ,2,3) 




00242400 


323B=Z1(1, J,KM1,2,3) 




00242500 

00242600 


3EF1NE THE AREA OF THE 


CONTROL VOLUME 


\j ^ ^ ^ 

00242800 


3XYF=3XF*DYF 




00242900 


3XY3=3X3*DY3 




00243000 


3Y2E=3YE*32E 




r\ 

\j \j ^ \j 


3Y2W=3Y/:-3ZW 




00243200 


3ZXN=3Z::*3XN 




00243300 


3ZXS=32S*3XS 




00243400 

00243500 


V0L=3X:-3YJ*3ZK 




00243600 


VCL3T=7CL/3T:ME 




^ ‘ \A\J 

00243800 


ZXOYN=3ZXN/DYN 




00243900 


2XOYS=3ZXS/3YS 




00244000 
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XY0ZF=3XYF/DZF 

XYOZB=DXYB/DZB 

YZOXE=DYZE/DXE 

YZOXW=DYZW/DXW 



USE SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 
PHYSICAL PROPERTIES AND FLUX ON THE SURFACES. 



GEN=SI1IN(R{IP1,U ,K) ,R(I, J ,K) ,DXP1,DXI) *U{IP1,U ,K) 

ges=s:i:n (R(ipuumi,k> ,r(i, jki,k) ,dxpi,dxi> {i?:,umi,K) 
gwn=s:i:n(R(imi,j ,k),r(i,j ,k) ,dxmi,dxd *u(i ,k) 
gws=s:i:n (R(imi, jmi,k) ,r{i, jmi,k) ,dxmi,dxd ^u (i ,umi,k) 

GN =S:l:N{R(I, J?1,K) ,R(I, J ,K) ,DYNN,DYN) *V{1, J?1,K) 

GP =S:l:N (R(I, JM1,K) ,R(I, J ,K),DYS ,DYN)*V(I,J ,K) 

GS =SILIN (R(I, JM2,K) ,R{I,sJMl,K) ,DYSS,DYS) *V(I, JMI.K) 

GFN=SILIN(R{I, J ,KP1) ,R(I, J ,K) ,DZP1,DZK) *W(I, J ,KP1) 

gfs=s:lin (R(i, jmi,kpi) ,r{i, jmi,k) ,dzpi,dzk) *w{i, jy:,KPi) 

GBN=SILIN(R(I, J ,KM1),R(I,J , K) , DZMl , DZK) { I , J ,K ) 

GBS=SILIN (R (I, JM1,KM1) , R ( I , JMl , K) , DZMl , DZK) *W{I,Uy.:,K ) 

CN=0.5- (GN+GP) *DZXN 
CS-0. 5* (GP-GS) *DZXS 

ce=sil:n(gen,ges,dyn,dys) *dyze 
cw=sii:n (gwn, gws, dyn, dys) *dyzw 

cf=s:lin{gfn,gfs, dyn,dys) *dxyf 

CB^SIIIN (GBN, GBS, DYN, DYS) *DXYB 

VISN=V:S(I,J ,K) 

VISS=VIS(I, JMUK) 

VISE= (VISCP1,J ,K)+VIS(I,J ,K) + 

& VIS( IPI, JM1,K)-kVIS(I, JM1,K) ) /A.C 

v:sw= (VIS(IM1,J ,K)-^VIS(I,J ,K) + 

& VIS( IMl, JM1,K) +VIS(I, JM1,K) ) /4 .0 

visF= {v:sc,j ,KPi)+vis(i, j ,:<) + 

& VISd, JMl^KPl) +VIS(I, JM1,K) ) /4 .0 

vis3= {v:sc,u ,kmi) - visd, j ,K)^ 

& v:s( UM1,KM1) -^VIS (I, JM1,K) ) /4 .0 



V:SN1=ZXCYN»V:SN 

v:ss:=2XOYS*v:ss 

vise:=y2Cxe*v:sh 

visw:=Y20xw*v:sw 

v:sf:=xyozf-visf 

VISBl=XYOZB*VISB 



CEP=(AB5 (CE) -Cr.) *DXP1»DXI/ (DXE* (DXE^DXW ) ) /8. 
CEM=(ABS{CE)-CH) • DXP 1 *DXI / ( DXE* (DXE+DXEE) )/8. 
CW?=(ABS(CW) -CW) *DXM1*DXI/ (DXW* (DXW+DXWW) ) /8. 
CWM=(AB5(CW)-CW) * DXMl *DXI / (DXW* {DXWrDXE ) ) /8. 

CNP=(ABS(CN) 1-CN) -DYN/DYU/IG. 

CNM= (ABS(CN)-CX) • DYN/DY? 1 / 1 6 . 

CS?= (AB5 (CS) *CS) 'DYS/DYMl/ie. 

CSM=(ABS (CS)-CH) 'DYS/DYJ/16. 



CFP=(ABS(CF) -Ci) ‘DZPl-DZK/ (DZF* (DZF+DZ3 ) )/8. 



3C2441CC 

00244200 

0024430C 

00244400 

00244500 

00244600 

00244700 

0C244800 

00244900 

C024500C 

00245100 

00245200 

00245300 

00245400 

00245500 

00245600 

00245700 

00245800 

00245900 

00246000 

00246100 

00246200 

00246300 

00246400 

00246500 

C0246600 

0024670C 

00246800 

00246900 

00247000 

00247100 

00247200 

00247300 

00247400 

00247500 

00247600 

C02477C0 

C02478CO 

C02479CC 

002480C0 

C02481CC 

00248200 

00248300 

002484CC 

002485CC 

0C2486CC 

00248700 

00248800 

00248900 

00249000 

00249100 

0C2492CC 

00249300 

00249400 

00249500 

00249600 

00249700 

00249800 

00249900 

r\ 

CC25C2CC 

0025C3CC 

r\ .f\ O C O ^ 

0C25C600 

0G25C7CC 

CC25C800 
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CFM=(A3S(CF)-CD 'DZPl’OZK/ (DZF* (DZF+DZFF) ) /8. 


00250900 




CBP= (ABS (CB) -rCB) *DZM1 *DZK/ (DZB* (DZB+DZBB) ) /8 . 


00251000 




CBM= ( ABS (CB) -CB) *DZX1 *BZK/ (DZB* (DZB+DZF ) ) /8 . 


00251100 

00251200 

00251300 




AE ( I, J, K) =- . 5 *DXI/DXE*CE+CEP+CEM* ( 1 . +DXE/DXEE) +CWM*DXW/DXE+VI SEl 


00251400 




AW(I, J, K) = .5-DXI/DXWCW+CWM+CWP* (1 .+DXW/DXWW) +CE? *DXE/DXW+VISW1 


00251500 

00251600 




AN ( I, J, K) =- . 5 'CN+CNP+CNX* (1 . tDYN/DYNN ) +CSM*DYS/DYN+VISN1 


00251700 




AS ( I , J, K) = .5 "CS+CSM+CS? • ( 1 . -rDYS/DYSS ) +CNP *DYN/DYS+VISS1 


00251800 

00251810 




AF(I, J,K) =-.5*DZK/DZF*CF-CF?+CFM» (1 . ^DZF/DZFF) +CBM*DZB/DZF+VISF1 


00251820 




AB ( I, J, K) = .5 -DZK/DZB»C3+CBM+CBP* ( 1 . +DZB/DZBB) +CFP*DZF/DZB+VISB1 


00251830 

00251840 

00251900 


801 


AEE=-CEy.*DXE/DXEE 


00252000 




AEER=AEE»VPD ( IP2, J, K) 


00252100 


802 


CONTINUE 


00252200 

00252300 


803 


AWW=-C WP * DXW/ DXWW 


00252400 




AWWR=AWW*VPD ( IM2 , J, K) 


00252500 


804 


CONTINUE 


00252600 

00252700 




IF (J.LT.NJ) GOTO 805 


00252800 




ANN=0 . 


00252900 




ANNR=C . 


00253000 




GOTO 806 


00253100 


805 


ANN=-CNM*DYN/DYNN 


00253200 




ANNR=ANN*VPD ( I, JP2, K) 


00253300 


806 


CONTINUE 


00253400 

00253500 




IF (J.GT.3) GOTO 807 


00253600 




ASS=0. 


00253700 




ASSR=0. 


00253800 




GOTO 808 


00253900 


807 


ASS=-CS?*DYS/DYSS 


00254000 




ASSR=ASS*V?D K) 


00254100 


808 


CONTINUE 


00254200 

00254300 




IF (K.IT.NK) GOTO 809 


00254400 




AFF=0. 


00254500 




AFFR=0. 


00254600 




GOTO 810 


00254700 


809 


AFF =-C?y*OZF/OZF? 


00254800 




AFFR=AFF*VPD ( I, J, K?2) 


00254900 


s:o 


CONTINUE 


00255000 










IF (K.GT.2) GOTO 811 


00255200 




A33=0 . 


00255300 




A3BR=0. 


00255400 




GOTO 812 


00255500 


811 


A3B=-C5?*0Z3/DZ3B 


00255600 




ABBR=A53*VP0 ( I , J, KM2) 


00255700 


812 


CONTINUE 


00255800 

00255900 

00256000 

00256100 




00256200 




00256300 


* * * 


MODIFICATION FOR DECK BOUNDARIES 


00256400 

00256500 


900 


XT m y — 

J. 


00256600 




:r (NOD cm:, j,K) .EQ.C) goto 901 


00256700 




AWW=0 . C 


00256800 




AWWR=C . : 


00256900 

SJ J 1 \J\/ \J 


901 


CONTINUE 


00257100 




IF (NOD C?1,U,K) .EQ.C) GOTO 902 


00257200 
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AE£=O.C 

A£ER=C.C 

902 CONTINUE 

:? (NCO (I, JM2,K) .EQ.O) GOTO 903 

A3S=C . C 

A3SR=C.C 

903 CCN’TIKUZ 

:r (NC3 (I. J?1,K) .EQ.O) GOTO 904 

ANN=0 . 0 

ANNR=C.C 

904 CCNTIN'JE 

:f {nod(I,j,kmd .eq.o) goto 905 

A3B=0 . C 
A3BR=C.0 

905 CONTINUE 

:? (NOD (I, J,KP1) .EQ.O) GOTO 906 

AFF=0.C 

AFFR=C.O 

906 CONTINUE 

#««*«<•##«>>««««*«»»»»******««»#«*»»##***##*»»« 



3'J FROM NORMAL STRE33 

RN=(S:C-22 (I,J ,K)-(V(I, JP1,K)-V(I, J , K) ) ‘VISN/DYN) *DZXN 
.RS=(S:C-22 (I, JM1,K)- (VC, J , K) -V ( I , JMl , K) ) *VISS/DYS) ’DZX3 

re=(s:g:2 (ipi, j,K)- (vcpi,u,:<)-v(i, j ,k) )*vise/dxe) *dyze 

RW=(S:G12(I ,U,K)-(V(I , J,K)-V(IM1, J,K) ) 'VISW/OXW) *dyzw 

RF=(3IG23 (I,U,KP1)-(V(I,J,K?1)-V(I, J,K ) ) «VISF/DZF) -DXYF 
R3=(S:C-23 (I, J,K )-(V(I,J,K ) -V ( I , J, KMl ) ) * VISB/DZB) *DXY3 

3U FROM CURVED 3TRES3ES AND ACCE1ERATICN3 



ar=3ii:n(R(i,u, k) ,rc, jmi,K) ,dyn,dys) 

ASU12=AR*AU1*AU2 

ARU23=AR*AU2*A'J3 

ARU11=AR’AU:*A’J1 

ARU33=AR*AU3-AU3 

RRX= (AVG12-ARU1?) *DZK* (DYE-DYW) 

RRZ= (AVG23-ARU23) •DXI’’ (DYF-DYB) 

R.RY= (AVGll-ARUl ! ) -DZK* (DXN-DXS) -r 
i (AVG33-ARU33) *DXI* (DZN-DZS) 



A? (I, U, K) =AE ( :, .:, K) -^AWC, U, K) tAN C, U, K) -AS ( I, U, K) 
i -AF ( : , .,, K) -A3 ( I , U, K) *AEE-AWW-ANN+ASStAFF-A33 

3? (I, J, ;<) =- (ROD ( : , J,K) 'DYS-^ROD C, JMl, K) *DYN) / (DYS-DYN) ■VOLOl 
3U (I, J,K)= (ROD ( ; , J,K) ‘DYS-ROD (I, JMl, K) *DYN)/ (DYStDYN) -VOID: 



30257300 

30257400 

00257500 

30257600 

00257700 

00257S00 

00257900 

30258CC0 

00258100 

30258200 

30258300 

002584CC 

00258500 

00258600 

002587C0 

30258800 

00258900 

30259000 

00259100 

00259200 

00259300 

00259400 

00259500 

00259600 

30259700 

30259800 

0025990C 

bU xucf 
00260200 
30260300 
30260400 
002605CC 
00260600 
00260700 
3026080C 
00260900 

^ 



AVG12=C. 


, 5 


• (SIGl 


2{ 


ipi, J 


,K) +S 


IG12 


! (I 


, J,K) ) 






CC26I2CC 


AVG23=C. 


. z 


* (SIG2 


3( 


I, J,K?1)^S 


IG23 (I 


, J,K) ) 








AVG11=5: 


1 1 


IN (SIG 


1 1 


(I, J. 


K),SI 


Gll ( 




JM1,K) 


,DYN 


,DYS) 


:c26:4cc 


AVG33=S: 


- ^ 


IN (SIG 


33 


drU, 


K) ,SI 


G33 ( 


[I, 




,DYN 


,DYS) 


::26i5:c 
























w26.»6ww 


AU2=VC, 


r 1 


.:<) 


















::26i7cc 


AUl =5IE! 


IN 


(U(I?1 


f 


,K) 


,Ud, 


t 


K) 


,DXI,1 


XI, 




::26i9cc 






u(i?: 




XI, K) 




JXl, 


-K) 


,DXi',: 


XI, 


DYNMYS) 


i:26i9c: 


AU3=5 31! 


• V 


( w ( I 


» 'I 


,K?1) 


,A(I 


f '■* * 


,K) 


,DZK,: 


2K, 




1 12 62 ICC 






Ad,. 


Ml 


,K?1) 


,W(I, 


JMl, 




,DZK,: 


:2K, 


DYN,DY3) 


IC262ICC 



J ^ w w 

::2623CC 

:02624CC 

:C2625CC 

::2626C0 

:C2627CC 

:C26280C 

:C2629C0 

::263ccc 

::263icc 

::2632C3 
::2635CC 
::2634cc 
:C2655CC 
C 32 63 cC C 
::2657:o 
::2636C0 
:C2639CC 

^264\i/\^w 
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VOD(I, J,K) 



SU (I, J,K> =SU(I, J, K) +DZK*DXI* (P (I, JM1,K)-P (I, J,K> ) 

& tAEER+AWWR+ANNR+ASSR+AFFR+ABBR 

S +RE-RW+RN-RS+RF-RB+RRX+RRZ-RRY 

5 -BUOY* ( (R(I, J,K)-REQ(I, J,K) ) *DYS+(R(I, 

6 -REQd, JM1,K) ) *DYN)/(OYS+DYN> *VOL*SIN (ZC (K> ) *SIN(XC (I) ) 
100 CONTINUE 



C ••• TAKE CARE OF B.C. THRU AN, AS , AE, AW, AF, AB, S? AND SU 
C 

C ••• RADIUS DIRECTION 

DO 500 K=2,NK 
DO 500 1=2, NI 

CC S?(I,3,K)=SP(I,3,K)+AS(I,3,K) 

SU(I,3,K)=SU(I, 3,K)+AS(I, 3,K) *V(I,2,K) 

AS(I,3,K)=0 . 

AN(I,NJ,K)=0. 

500 CONTINUE 

C ••• CYLIC CONDITIONS 

DO 502 K=2,NK 
DO 502 J=3,NJ 

SU(2 ,J,K)=SU(2 ,J,K)+AW{2 ,U,K)*V(1 ,J,K) 

SU(NI, J,K) =SU (NI,vT,K) +AE(NI,v',K) *V(NIP1, J,K) 

AW(2 ,J,K)=0.0 
AE(NI, J,K)=0.0 
502 CONTINUE 

C ••• FRONT AND BACK WALL 

DO 600 1=2, NI 
DO 600 J=3,NJ 
JM1=J-1 



SLIP WALLS 

S?(I, J,2) =SP (I, J,2) +AB(I, J,2) 

SP ( I , J, NK) =S? ( I , J, NK) +AF ( I , J, NK ) 



AF(I,U,NK)=C. 
AB(I, J,2)=C. 
600 CONTINUE 



C >*#«*>««>«<<<«>«««##»«« »##«##«««««#»#«#«#*#*«##«<»«><>«>>■>« 

C *■• XODIFICATION FOR DECK BOUNDARIES 

DO 10 i N=1,NCHIP 
:b=ick?b(N) 

:e=I3+nch?i (N)-i 

:bmi=ib-i 

:epi=!e-i 

JB=JCH?3(N) 

UE=JB-rNCH?U(N)-i 



K3=KCH?3(N) 

KE=K3^NCH?K ( N ) - 1 

K3M1=K3-1 

KE?1=KE-1 

30 102 

30 102 K=K3,KE-1 

S? (I3M1, J,K) -S? C3M1, J,K)-AE(IBM1, J,K) 



0C2641C0 
C02642C0 
CC264300 
00264400 
00264500 
00264 600 
00264700 
00264800 
00264900 
00265000 
00265100 
00265200 
00265300 
00265400 
00265500 
00265600 
00265700 
00265800 
00265900 
00266000 
00266100 
00266200 
00266300 
00266400 
00266500 
00266600 
00266700 
00266800 
00266900 
00267000 
00267100 
00267200 
00267300 
00267400 
002675C0 
00267600 
00267700 
00267800 
C0267900 
C02680CC 
00268100 
002682C0 
C02683C0 
00268400 
00268500 

<■' <^*5 CQ ^ 

00268700 
0O268SOO 
00268900 
00269000 
00269100 
00269200 
00269300 
00269400 
00269500 
00269600 
00269700 
00269800 
00269900 
^ / 

00270100 

\j\j ^ I \j 

! \J ^ \j \j 
I \j n 

wOZ ^ ^ \j 

00270600 

f\ 'y-t r\ ^ r\ 
/ U • 

C027C8CC 
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AECBXl, J,K)=O.C 

SP (IE, J,X)=SP {II, J,K)-AW(IE, J,K) 
AW(IE, J,K)=O.C 
:C2 CONTINUE 

DO 1C3 :=IB, IE-1 
DO 1C3 :<=KB,KE-: 

AN(I, JBM1,K)=0.C 
AS{I, JI?1,K)-0.C 
103 CONTINUE 



DO 



)S I=IB,IE-1 



DO 1C6 J=JB,JE 

SP ( I , U, KBMl ) =SP { I , J, KBMl ) -AF ( I , J, KBMl ) 
AF{I,U,K3M1)=C.C 

SP ( I , U, KE ) =SP (I , U, KE ) -AB ( I , J, XE) 
AB(I,U,KE)=0.C 
LC6 CONTINUE 



C ########f ?######################################### 

C #######t**«f#######t 4################################ ####### 
C *** MODIFICATION FOR THE CELLS INSIDE OF THE DECKS 

DO i=iB,iE-: 

DO iw4 w^oBfoE 
DO 1C4 K=KB,KE-1 
SP(I,U,X)=-1.0E20 
AW(I,U,X)=0 . 

AE(I,U,X)=0. 

AS(I,U,X)=0. 

AN(I,U,X)=0. 

SU(I,U,X)=0. 

104 CONTINUE 
101 CONTINUE 

105 CONTINUE 






300 



00270900 

00271CC0 

00271100 

00271200 

00271300 

00271400 

00271500 

00271600 

00271700 

00271800 

00271900 

00272000 

00272100 

00272200 

00272300 

00272400 

00272500 

00272600 

00272700 

00272800 

00272900 

00273C0C 

00273100 

00273200 

00273300 

00273400 

0027350C 

00273600 

00273700 

00273800 

00273900 

002740CC 

002741C0 

00274200 

002743C0 

002744CC 

0027450C 

002746CC 

002747CC 

00274800 

C02749CC 

C0275CCC 



ASSIX51E CCEFFICIEXTS AND SOLVE DIFFERENCE EQUATIONS 


00275300 

00275400 


DO 51 : ;<=2,NK 


00275500 


DO 3:: j=3,N„ 




^0 jww -~^rN. 


00275700 


DX:=XL{I,U,X,2,U) 


00275800 


DZX=21{I,U,K,2,U) 


0027590C 


DZX=D2X*DX: 


00276000 


A? { I , U, X) =A? { : , J, X) -S? { I , U, X) 


00276100 


DV{I,U,X)=DZX/AP C,U,X) 


00276200 


CONTINUE 


0027630C 

C02764CC 

00276500 


SOLVE FOR V 


00276600 

00276700 

002768C0 


CALI TRID (2, 3,2,NI,NJ,NK,V) 


00276900 

00277000 

\J\J^ ! • 


DO "^4 :=2,n:p: 


0027720C 


DO 74 J=2,NJ?: 


C02773CD 


v(i,u,i)=v{:,..,/) 


002774CC 


v{:,u,NX?i) =v{ : ,u,NK) 


D02775CC 


CONTINUE 


002776CC 



108 



c 

c 



DO 79 :=:,Nipi 
DO 79 K=1,NKP1 
V(I,2,K)=V(I,5,K) 
79 CONTINUE 



IF (NCHIP.EQ.O) GOTO 112 

####### #f#??###########fff ####### ################# ########## 

#########f« ########################## ########## 

RESET THE VELOCITY INSIDE OF THE DECKS 



DO 110 N=1,NCHIP 
IB=ICHPB(N) 

IE=IB-rNCHPI (N)-l 
JB=JCK?B(N) 
v7E=JB-rNCKPJ(N)-l 
KB=KCH?3(N) 

KE=KB-»-NCHPK(N)-l 
DO 108 I=IB,IE-1 
DO 108 J=JB,JE 
DO 108 K=KB,KE-1 
V(I, J,K)=0.0 
108 CONTINUE 
no CONTINUE 
112 CONTINUE 

############ ########### 

##f#######f###W4########### ################################## 

RETURN 

END 



SUBROUTINE CALW 



00277700 

00277800 

00277900 

00278000 

00278100 

00278200 

0027830C 

00278400 

00278500 

00278600 

00278700 

00278700 

00278800 

00278900 

C0279C00 

00279100 

00279200 

00279300 

00279400 

00279500 

00279600 

00279700 

00279800 

00279900 

00280000 

00280100 

00280200 

00280300 

00280400 

00280500 

00280600 

00280700 

00280800 

00280900 

0O281COO 

00281100 

00281200 

00281300 



COMMON/R4/XC(93) , YC(93) , ZC ( 93 ) , XS ( 93 ) , YS ( 93 ) , ZS ( 93 ) , 

& DXXC(93),DYYC(93) ,DZZC(93) ,DXXS (93) , DYYS ( 93 ) , DZZS ( 93 ) 

COMMON/Bll/DXr DY, DZ , VOL, DTIME , VOLDT, THOT, TCOOL, ? I , Q, QR 
C0MM0N/BL7/NI,N:P1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 
& ,NIP2,NJ?2, NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP 

CCMMON/5L12/ NWRITE, NTAPE, NTMAXO , NTREAL, TIME, SORSUK, ITER 
C0MM0\73116/ const: , CONST2, CONST3 , CONST4 , CONST6, NT, UO , H, UGRT, BUOY, 

& c?c,?rt,conoc,v:so,rhoo,hr,tr,ta,dtemp,twrite,ttape,tmax,gc,ra:r 

C0MM0N/5L2C/SIG:: (22, 16,32) ,SIG12 (22,‘16, 32) , SIG22 (22, 16,32) 

& , BIG 13 (22, 16,32) ,SIG23 (22, 16,32) ,SIG33 (22, 16,32) 

COMMON/BL22/ICHP3(10) ,NCHPI (10) , JCHPB(IC) ,NCHPJ(10) ,KCHPBC0) , 

& NCHPK(IO) ,TCHP(10) ,CPS(1C) ,CONS(iO) ,WFAN(10) 

COMMON/BL31/ TOD (22, 1 6, 32) , ROD (22, 16, 32) , POD (22, 1 6, 32) 

& , CCD (22, 16, 32) ,UOD(22, 16,32) , VOD (22 , 1 6, 32) , WOD (22 , 16, 32) 

COMMON/3L32/ T (22 , 1 6, 32 ) , R (22 , 1 6, 32 ) , ? ( 22 , 1 6, 32 ) 

& rC(22, 16,32) ,U (22, 16,32) ,V(22, 16,32) ,W(22, 16,32) 

COMMON/3L33/ TPD (22, 18, 32) , RPD (22, 16, 32) , PPD (22, 16, 32) 

& ,C?D (22, 16, 32) ,UPD (22, 16,32) ,V?D (22, 16,32) ,W?D(22, 16,32) 

COMMON/5L34/ HEIGHT (22, 16,32) ,REQ(22, 16,32) , 

& SMP (22, 16, 32) , SMPP (22, 16, 32) , P? (22 , 1 6, 32 ) , 

& DU (22, 16,32) ,DV( 22, 16,32 ) ,DW (22, 16,32) 

COMMON/ 3L3 6 /A? (22, 1 6, 32 ) , AE (22 , 16,32) , AW (22, 16, 32) , AN (22, 16,32) , 

& AS (22, 16, 32) ,AF(22, 1 6, 32 ) , AB ( 22 , 1 6, 32 ) , 

& S? (22,16,32) ,SU (22, 16,32) ,RI (22, 16,32) 

COMMON/5L57/ VIS (22, 16, 32) ,COND (22, 16,32) , NOD (22, 16, 32) , RWALL (579) 
& ,C?M(22, 16, 32) ,HSZ (3,2) ,NHSZ (22, 16,32) ,RESORM(93) 



CALCULATE COEFFICIENTS 



002814C0 
C02815C0 
002816C0 
00281700 
00281800 
00281900 
00282000 
w OZ \J 
00282200 
00282300 
00282400 
00282500 

Z.OV \j 

00282700 

00282800 

002829C0 

00283C00 

00283100 

00283200 

00283300 

00283400 

00283500 

00283600 

00283700 

00283800 

00283900 

00284000 

wZ O n ^ W U 

00284200 

00284300 
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20 IOC K=3,NK 




00284400 


KP2=K-^2 




00284500 


KP1=K+1 




00284600 


KM1=K-1 




00284700 


KM2=K-2 




00284800 


DO ICO J=2,NJ 




00284900 


JP2=J*^2 




00285000 


JP1=J-1 




00285100 


JMl=J-i 




00285200 


JM2=J-2 




00285300 


DO IOC 1=2, NI 




00285400 


IP2 = I-^2 




00285500 


:pi=i-^i 




00285600 






00285700 


IM2=I-2 




00285800 


IF (I.EQ.2) IM2=NIM1 




00285900 


IF (I.EQ.NI) IP2=3 




00286000 

00286100 

00286200 


CENTRAL LENGTH OF T 


HE SCALE CONTROL VOLUME 


00286300 

00286400 


DXP1=XL(IP1, J,K,3,C) 




00286500 


DXI =XL(I ,J,K,3,0) 




00286600 


DXM1=XL(IM1, J,K,3,0) 




00286700 

00286800 






00286900 


DYJ =VL(I,J ,K,3,C) 




0C28700C 


DYM1=YL(I, JM1,K,3,C) 




00287100 

00287200 


DZP1 = ZL{I, J,KPU3,0) 




C0287300 


DZK =ZL(I,J,K ,3,0) 




00287400 


DZM1=ZL(I, J,KM1,3,C) 




00287500 

00287600 


SURFACE LENGTH OF 


THE CONTROL VOLUME 


00287700 

00287800 


DXN=XL(I, JP:,K,3,2) 




00287900 


DXS=XL(I, J , K, 3,2) 




00288000 


DXF=XLC, J,KPl, 3,3) 




00288100 


DXB=XLC, J,K ,3,3) 




C02882CC 

00288300 


DYF=Y1C, J,K?1,3,3) 




00288400 


DY3=YLC, J, K ,3,3) 




00288500 


DYE=Y1(I?:, J,K,3,1) 




00288600 


DYW=YLC , J,K,3,1) 




0C2887CC 

00288800 


DZE=ZLC?1, J,K,3, 1) 




00288900 


DZW=Z1C , K, 3, :) 




002890CC 


DZN=Z1C, J?:,K,3,2) 




00289100 


DZS=Z1C, J ,K,3,2) 




00289200 

00289300 


CENTRAL LENGTH OF 


THE STAGGERED CONTROL VOLUME 


00289400 

00289500 


DXEE=XL(I?2, J,K,3, 1) 




00289600 


DXE =XL(I?:, J,K,3,1) 




00289700 


DXW =XL(I ,J,K,3,1) 




00289800 


DXWW=XL(IM1, J,K,3,1) 




00289900 

00290000 


DYNN=YL(I, J?2,K,3,2) 




00290100 


DYN =YLC, J?:,K,3,2) 




00290200 


DYS =YL(I,J ,K,3,2) 




00290300 


DYSS=Y' C,jy:,K,3,2) 




0C2904CC 

002905CC 


DZFF = ZLC, J,KP2,3,3) 




00290600 


DZF =ZLC, J,K?1,3,3) 




00290700 


DZB =ZL(:,J,K ,3,3) 




002908CC 


DZBB=ZLC, J,KM1 , 3,3) 




00290900 

00291000 


' DEFINE THE AREA OF 


THE CONTROL VOLUME 


00291100 
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DXYF=DX?*DYF 

DXYB=DX3*DY3 

DYZE=DYZ*DZE 

DYZW=DYW^DZW 

DZXN'=DZN’^DXN 

DZXS-DZS*DXS 

VCL=DX:»DYJ*DZK 

VCLBr=VOL/DT:ME 

ZXOYKOZXN/DYN 

ZXOYS-DZXS/DYS 

XYOZF=DXYF/DZF 

XYOZB=DXYB/DZB 

YZOXE=DYZE/DXE 

YZOXW=DYZW/DXW 



C ‘JSE SINGLE AND BI-LINEAR INTERPOLATION TO EVALUATE 

C & PHYSICAL PROPERTIES AND FLUX ON THE SURFACES. 



gnf=s:l:n (R(i, j?i,k > ,r(i, j,k ) ,dypi,dyj) ^v(i, jpi,k > 

GNB*S:1:N(R(I, JPl.KMl) ,R(I, J,KM1) ,DYP1,DYJ) ( I , JPl , KMl ) 

gsf=s:l:n(R(i, JMi,K ),r<i,j,k > ,dymi,dyj) j ,k > 

gsb=s:i:n (Rdr-Mir KMi) ,r(i, j , kmd ,dymi,dyj) *va, j ,kmd 

GF =5:i:N(R(I,J,KP1),R(I, J,K ) ,DZFF,DZF) *W(I,J,KP1) 

G? =S:l:N(R(I, J,KM1) ,R(I, J,K ),DZB , DZF) ( I , J, K ) 

G3 =S:i:N(R(IrwM<M2) ,R(I, J,KM1) ,DZBB,DZB) *W(I, J,KM1) 

gef=s:i:n(R(ipi, j,K ),r(i, j,k ) ,dxpi,dxd »u(ipi, j,k > 

GEB=S:l:N(R(IP 1, J,KM1) ,R(I, J,KM1) ,DXP1,DXI) ^U (IPl, J,KM1) 

gwf«s:l:n (R( iMi, j,K ),r(i,j,k ) ,dxmi,dxd ^u a ,j,k ) 

GWB=S:i:N(R(IM1, J,KM1) ,R(I, J,KM1) ,DXM1,DXI) ^U(I , J,KM1) 

CF=C.5- (GF+G?) -DXYF 
C3=0.5MGP+GB) *DXYB 



CX=S:l:N (GNF, GNB, DZF, DZB) *dzxn 
cs=s:i:n (gsf, gsb, dzf, dz3) *dzxs 

ci=s:i::; (GEF, geb, dzf, dzb) *dyze 
c;*:=s:i::; (gwf, gwb, dzf, dzb) ^dyzw 

v:sF=v:s(:, j,K ) 
v:s3=y:sc, 

v:sN= (visc,j?:,K )*vis(i,j,k ) + 

& vise, J?:,KM1) WIS (l, J,KM1) ) /4 .0 

v:ss= (VISC,JM1,K )-VIS(I,J,K ) + 

& Vise, +VIS (I, J,KM1) ) /4 .0 

V:SE= (VIS(I?1,J,K )-^VIS(I,J,K ) + 

& VIS CPI, J,KM1) +VIS (I, J,KM1) ) /4 .0 

v:sw= (v:scMi,j,K ) -t-vis c, j,k 

& VIS (IMl, J, KMl) +VIS {I, J,KM1) ) /4 .0 



V:SN1=ZX0YN^VISN 

v:ss:=zxoYs*viss 

v:se:=yzcxe*v:se 

v:sv;:=Yzcxwv:s>: 

v:sf:=/.yozf*v:sf 

V:S5:=/.YCZB*VIS3 



CC2912CC 

CC2913CC 

C02914CC 

C02915CC 

C029160C 

CC2917CC 

0029180C 

C02919CC 

C0292CCO 

C02921CC 

0029220C 

00292300 

00292400 

00292500 

00292600 

00292700 

00292800 

00292900 

0029300C 

00293100 

00293200 

0029330C 

00293400 

00293500 

00293600 

00293700 

00293800 

00293900 

00294000 

00294100 

00294200 

00294300 

00294400 

00294500 

00294600 

00294700 

00294800 

00294900 

00295000 

\j 

00295200 

00295300 

00295400 

00295500 

00295700 

00295900 

00295500 

00296000 

. w V 

00296200 

9 Q 

C02964CC 

C02965CC 

QC 

^ QC 

00296800 

«.«0296!^^0 

yj \J f y^ y^ yj 

00297100 

00297200 

00297300 

00297400 

00297500 

00297600 

00297700 

^ ry ^ r\“1 O ^ 

yj\j/.y t *Zy, yj 

00297900 
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CE?-(ABS(CE) 1-CE) •DXP1*DXI/ (DXE* (DXE+DXW ) ) /8. 
CEM=(ABS(CE)-CE) * DXPl *DXI / ( DXE* (DXE+DXEE) )/8. 
CW?= (ABS (CW) ^CW) *DXM1*DXI/ (DXW* (DXW+DXWW) ) /8. 
CWM=(ABS(CW)-CW) *DXM1*DXI/ (DXW* (DXW+DXE ) ) /8. 

CXP=(ABS(CN) +CN) *DY?1*DYJ/ (DYN* (DYN+DYS ) ) /8. 
CXM=(ABS(CN)-CN) *DYP1*DYJ/ (DYN* (DYN+DYNN) ) /8. 
CSP=(ABS(CS) +CS) *DYM1*DYJ/ (DYS* (DYS+DYSS) ) /8. 
CSM=(ABS(CS)-CS) *DYM1*DYJ/ (DYS* (DYS+DYN ) )/8. 



CFP=(ABS(Cc ) +CF) *DZF/DZK/16. 

CFM=(ABS(CF)-CF) *DZF/DZP1 /1 6 . 

CBP=(ABS(CB) +CB) *DZB/DZM1/1 6 . 

CBM= (ABS(CB) -CB) *DZB/DZK/16. 

AE ( I, J, K) . 5 *DXI/DXE*CE+CEP+CEM* ( 1 . +DXE/DXEE) +CWM*DXW/DXE+VISE1 
AW( I, J, K) = . 5 •DXI/DXW*CW+CWM+CWP* ( 1 . +DXW/DXWW) +CE? * DXE/DXW+VISWl 
AN ( I, J, K) . 5 *DYJ/DYN*CN+CNP+CNM* ( 1 . +DYN/DYNN) +CSM*DYS/DYN+VISN1 
AS ( I , J, K) = . 5 *DYJ/DYS*CS+CSM+CSP* ( 1 . +DYS/DYSS) +CNP*DYN/DYS+VISS1 

AF ( I , J, K) =- . 5 -CF+CFP+CFM* ( 1 . +DZF/DZFF ) +CBM*DZB/DZF+VISF1 
AB ( I, J, X) = .5 *CB+CBM+CBP* ( 1 . +DZB/DZBB) +CFP*DZF/DZB+VISB1 



801 AEE=-CEM*DXE/DXEE 
AEER=AEE*WPD( IP2, J,K) 

802 CONTINUE 

803 AWW=-CW?*DXW/DXWW 
AWWR=AiArW*WPD ( IM2 , J, K) 

804 CONTINUE 

IF (J.LT.NJ) GOTO 805 
ANN=0 . 

ANNR=C. 

GOTO 806 

805 ANN=-CNM*DYN/DYNN 
ANNR=ANN*WPD (I , JP2, K) 

806 CONTINUE 

IF (J.GT.2) GOTO 807 
ASS=0. 

ASSR=C. 

GOTO 8C9 

807 A3S=-CS?*0YS/0YSS 
A33R=ASS*W?0 ( JX2,X) 

908 CONTINUE 

IF (K.IT.NK) GOTO 809 
AFF=0. 

AFFR=0. 

GOTO eiu 

809 AFF=-CFv*DZF/!)/rF 
AFFR=AFF*W?D (1,0, KP2) 

810 CONTINUE 

IF (K.GT.3) GOTO 811 
A3B=0. 

ABBR=C. 

GOTO 812 

811 A3B=-CB?*023/nZBB 
A33R=A33»W?0 ( J,KM2) 

812 CONTINUE 






00298000 

0029810C 

00298200 

00298300 

00298400 

00298500 

00298600 

00298700 

00298800 

00298900 

00299000 

00299100 

00299200 

00299300 

00299400 

00299500 

00299600 

00299700 

00299800 

00299900 

00300000 

00300100 

00300110 

00300120 

00300200 

00300300 

00300400 

00300500 

00300600 

00300700 

00300800 

00300900 

00301000 

00301100 

00301200 

003013C0 

C0301400 

003015C0 

00301600 

00301700 

00301800 

003019CC 

00302000 

00302100 

003C22C0 

C03023CC 

C03024C0 

00302500 

00302600 

00302700 

00302800 

00302900 

00303000 

00303100 

00303200 

00303300 

0C3034CC 

00303500 

00303600 

00303700 

00303800 

00303900 

00304CC0 

00304100 

00304200 

00304300 

00304400 

00304500 
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c *** MODIFICATION FOR DECK BOUNDARIES 



900 CONTINUE 

IF (NODdMl, J,K) .EQ.C) 

AWW=0 . 0 

AWWR=0.C 



GOTO 901 



901 CONTINUE 

IF (NODdPl, J,K) .EQ.C) GOTO 902 
AEE=0.C 



AEER=0.0 



902 CONTINUE 

IF (NOD (I, JM1,K) .EQ.O) GOTO 903 
ASS=0.0 



ASSR=0.C 



903 CONTINUE 
IF (NOD (I 
ANN=0 . C 
ANNR=0 . 0 



J?1,K) .EQ.O) GOTO 904 



904 CONTINUE 

IF (NODd, J,KM2) .EQ.O) GOTO 905 

ABB=0.C 

ABBR=0 . 0 

905 CONTINUE 

IF (NODd, J,KP1) .EQ.O) GOTO 906 

AFF^O.O 

AFFR=0 . 0 

906 CONTINUE 



C #############«#########«##«#######««############« 

c ################################################################ 



SU FROM NORMAL STRESS 

RF=(SIG33 (I, J,K )-(W(d Jd<?l)-W(I, J,K ) ) *VISF/DZF) *DXYF 
RB= ( S IG33 (I , J, KMl ) - (W (I , J,K ) -W ( I , J, KMl ) ) * VISB/DZ3 ) *DXYB 
RN=(SIG23 (I, J?l,K)-(Wd, J?1,K)-W(I, J , K) ) *VISN/DYN) *DZXN 
RS=(SIG23 (I, J ,K)-(W(I, J ,:<)-W(I, JM1,K) ) *VISS/DYS) *DZXS 
RE=(SIG13 dPl, J,K)-(aC?:, J,K)-W(I ,S,K) ) *VISE/DXE) -DYZE 
RW=(SIG13 d , J,K)-(Wd , J,K)-W(IM1, J,K) ) *VISW/DXW) *DYZW 

5U FROM CU.RVED STRESSES AND ACCELERATIONS 

AVG23=C.5* (SIG23(I,U?:d<) --SIG23 (I, JdO ) 

AVG13=C.5* (SIG13(IP1, JdO-^SIG13 (I, J,K) ) 

AVG22=SILIN ( S IG22 ( I , J, K) , SIG22 ( I, J, KMl) , DZF, DZB) 
AVG11=SILIN (SIGi: (I, JdO r SIGH (I, J, KMl) ,DZF,DZB) 

AU3=W d,J,K) 

AU2=BIL:N(V(I, J?dK ) ,VdHrK ) ,DYJ,DYJ, 

& V(I, JPdKMl) ,Vd, J,KM1) ,DYJ,DYJ, DZF,DZB) 

AU1=BIL:N(U dPl, J,K ) ,Ud, J,K ) ,DXI,DXI, 

& UdPl, J,KM1) dJd, J,KM1) ,DXI,DXI, DZF^DZB) 

AR=SILIN(R(d J,K) ,Rd, J,KM1) ,DZF,DZB) 

ARU23=AR*AU2»AU3 
ARU13=AR*AU:*AU3 
ARU22=AR«Au2'AU2 
ARU 1 1 =AR * AU 1 " AU 1 

RRY=(AVG23-ARU23) -DXI* (DZN-DZS) 

RRX=(AVG13-ARU13) *DYJ» (DZE-DZW) 



C0304600 

00304700 

00304800 

00304900 

00305000 

00305100 

00305200 

00305300 

00305400 

00305500 

00305600 

00305700 

00305800 

00305900 

00306000 

00306100 

C0306200 

00306300 

00306400 

00306500 

00306600 

00306700 

00306800 

00306900 

00307000 

00307100 

00307200 

00307300 

00307400 

00307500 

C0307600 

00307700 

00307800 

00307900 

00308000 

00308100 

00308200 

00308300 

C0308400 

C0308500 

C0308600 

003087C0 

0030880C 

C030890C 

00309000 

00309100 

00309200 

00309300 

00309400 

00309500 

00309600 

00309700 

00309800 

00309900 

00310000 

00310100 

00310200 

00310300 

00310400 

00310500 

00310600 

00310700 

00310800 

00310900 

00311000 

00311100 

00311200 

00311300 
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?SZ=(AV322-ARU22) *DXI * OYF-DY3) + 
i (AVGll-ARUll) *DYJ* (DXF-DXB) 



A? ( I , J, K) =AE ( I, J, K) +AW ( I , J, X) +AN ( I , J, K) +AS < I, J, K) 

S -AF(I, J,X) +AB(I, J,K)+AEE+AWW+ANN+ASS+AFFi-ABB 

S? (I, J,X)=-<ROD (I, J,K) *DZB+R0D(I,J,KM1) *DZF) / (DZB+DZF) *VOLDT 
SZ(I,J, X)= <ROD(I, J,K) *DZB+ROD(I, J, KMl) ‘DZF )/ (DZB+DZF ) ‘VOLDT 
4 *WOD(I,J, K) 

2'J ( : , J, X) =SU ( I , J, X) -rDXI *DYJ* (P ( I , J, KMl) -? ( I , J, K) ) 

4 -rAEER+AWWR+ANNR+ASSR+AFFR+ABBR 

4 +RE-RW+RN-RS-rRF-RB-^RRY+RRX-RRZ 

4 -BDOY* ( (R(I, J,K)-REQ(I, J,K) ) *DZB*COS (ZC (K) )+(R(I, J, 

4 XM1)-REQ(I, J, KMl) ) *DZF*COS(ZC (KMl) ) ) / (DZB+DZF) »VOL*SIN (XC (I) ) 
100 CCXTINDE 

C **• TAKE CARE OF 3.C. THRU AN, AS, AE, AW, AP AND SU 

c 

C *** RADIUS DIRECTION 

DO 500 X=3,NK 
DO 500 :=2,NI 
XM1=K-1 

DC 3?(I,2,X)=SP(I,2,K)+AS(I,2,K) 

S?(I,2,X)=SP (I,2,K)-AS(I,2,K) 

3U(I,2,X)=SU(I,2,X) +2.0*W(I, 1,K) *AS(I,2,K) 

3?(I,ND,X)=SP (I,NJ,X)-AN(I,XJ,K) 

A3(I,2,X)=0. 

AN(I,NJ,X)=0. 

500 CONTINUE 

C **• CYLIC CONDITIONS 

DO 502 X=3,NK 
DO 502 C=2, NJ 

SU(2 ,C,X)=SU(2 ,J,K)+AW(2 ,C,K)»W(1 ,U,K) 

3U (NI,C,K) =SU (N:,C,K) +AE(NI, J,K) *W(NIP1, J,K) 

AX (2 ,C,X)=0.0 
AE(NI,C,K)=0.C 
502 CONTINUE 

C **♦ FRONT AND BACK WALL 

DO 600 1=2, NI 
DC SOC C=2,NJ 

3? c, j,:;x)=s? (:,c,NX) *af (i,u,nx) 

3?C,U,5 )=S?(I,U,5 )-A3(I,J,3 ) 

AFC, J,NK)=C. 

AE ( : , J, 5 ) =0 . 

600 



(XC 



.£Q,0) GOTO 



C y.OGIFZCATION FOR DECK BOUNDARIES 

DO lo: X=1,NCHI? 

:b=ich?b(N) 

:i=:3-xc:-:?i (N)-i 



JB=JCH?B(N) 

jz=j3-xc:-:?j(N)-: 

?'3=:<CH?3(N) 
KZ-KB-XCHPK (N)-l 



00311600 

■* 

I 

00311800 

00311900 

00312100 

00312200 

00312300 

00312400 

00312500 

00312600 

00312700 

00312800 

00312900 

00313000 

00313100 

00313200 

00313300 

00313400 

00313500 



00313600 

00313700 

0C3138C0 

00313900 

/ r\f\ f\ 

^ 

^ rs T •, / • r\ r\ 

^ \j.j LH 

00314200 

00314300 

00314400 

00314500 

00314600 

00314700 

00314800 

00314900 

00315100 

00315500 

00315400 

WW ..3 




:o3i6i:o 
10316200 
00316300 
^ ^ 

00316600 

00316700 



^ ^ \j \j 

“t ^ ^ ^ 
I ^ >J 

10317100 

10317200 

^ W # W w w 

00317400 

vy v> J \J 

10317600 
^ V 3 7 ( 
10317300 
10317910 

<>^ 3 * 

10316100 
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KBM1=KB-1 

KEP1=KE+1 



DC 1C2 J=JB,JE-1 
DO 1C2 K=KB,KE 

SPdBMl, J,K)=SP (IBMl, J,K)-AE(IBM1, J,K) 

SUdBMl, J,K)=SU (IBMl, J,K) +AEIIBM1, J,K) *WFAN (N) *2.C 
AE (IBMl, J,K) =0.0 



SPdE, J,K)=SP (IE, J,K)-AW(IE, J,K) 

SUdE, J,K)=SU (IE, J,K) +AW(IE, J,K) *WFAN(N) *2.C 
AW(IE, J,K)=0.0 

102 CONTINUE 

DO 103 I=IB,IE-1 
DO 103 K=KB,KE 

SPd, JBM1,K)=SP(I, JBM1,K)-AN(I, JBM1,K) 

SUd, JBM1,K)=SU(I, JBM1,K) +AN ( I , JBMl , K) *WFAN(N) *2.0 
AN(I, JBM1,K)=0.0 



SPd, JE,K)=SP (I, JE,K)-AS(I, JE,K) 

SUd, JE,K)=SU(I, JE,K) +AS (I, JE,K) »WFAN(N) *2.0 
ASd, JE,K)=0.C 

103 CONTINUE 

DO 106 I=IB,IE-1 
DO 106 J=JB,JE-1 

SU ( I , J, KBMl ) =Su (I , J, KBMl) +AF (I , J, KBMl ) *WFAN (N) 
SUd, J,. KEPI) =SU(I,J, KEPI) +AB(I, J,KEP1) *WFAN(N) 
AF(I,J, KBMl) =0.0 
AB(I,J, KEPI) =0.0 
106 CONTINUE 

C *** FOR THE CEILS INSIDE OF THE DECKS 

DO 104 1=13, :e-i 

DO 104 J=J3,JE-: 

DO 104 K=K3,KE 
SPd, J,K)=-1.0E2 
AWd, J,K)=0. 

An. { I ^ w ^ K) =C . 

ASC,wM<)=C. 

ANC, J,K)=C. 

A3(I,J,K) = . 

ArC,j,:<) = 

sue, J, :<) = : .C32 * wfan{N) 

104 CCNTIN’UE 
101 CCNTIN’UE 
^05 CCMTxNUE 






C ASSEMBLE COEFrICIENTS AND SOLVE DIFFERENCE EQUATIONS 



DC 301 K=3,NK 
DO 301 J=2,NJ 
DO 301 1=2, n: 

DX:=XL(I, J,K,3,C) 

DYJ=YLC, J,K,3,0) 

DXY=DXI*DYJ 

A? { : , J, K) =A? ( : , J, K) -SP ( I , J, K) 
DW ( I , J, K) =DXY/AP ( : , J, K) 



00318200 

00318300 

00318400 

00318493 

00318500 

00318600 

00318700 

00318710 

00318800 

00318900 

00319000 

00319100 

00319110 

00319200 

00319300 

00319400 

00319500 

00319600 

00319700 

00319800 

00319810 

00319900 

00320000 

00320100 

00320110 

00320200 

00320300 

00320400 

00320500 

00320600 

00320610 

00320620 

00320700 

00320800 

00320900 

00321C00 

00321100 

00321200 

00321300 

00321400 

00321500 

00321600 

00321700 

00321800 

00321900 

W W J V 



00322100 

00322200 

00322300 

00322400 

00322500 

00322600 

00322700 

00322800 

00322900 

00323100 

00323200 

00323300 

00323400 

00323500 

00323600 

00323700 

00323800 

C032390C 

00324000 
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oc^ non 



301 CCNTIX'JE 00324100 

00324200 

00324300 

*’• SOLVE rOR W 00324400 

00324500 

CALL TRID (2,2,3,NI,XJ,NK,W) 00324600 

00324700 

00324800 

DO 76 1=1, NI 00324900 

DO 76 J=i,NJ 00325000 

W(I,J,2)=W(I, J,3) 00325100 

W(I, J,N'KP1) =W(I, J,NK) 00325200 

76 CONTINUE 00325300 

00325400 

00325500 

IF (NCHIP.EQ.O) GOTO 112 00325600 

##*###* ############«<t#»»»»################### ###### ###### 00325700 

#########f#f»#####ir»ff##»######»f###### ########## ####»#»# ###### 00325800 

*■* RESET THE VELOCITY INSIDE OF THE DECKS 00325900 

00326000 

DO 110 N=1,NCHIP 00326100 

IB=ICKPB(N) 00326200 

IE=IB‘NCHPI (N)-l 00326300 

JB=JCK?B(N) 00326400 

JE=JB-rNCHPJ(N)-l 00326500 

KB=KCH?3(N) 00326600 

KE=KBtNCHPK (N)- l 00326700 

DO 108 I=IB,IE-I 00326800 

DO 108 J=JB,JE-I 00326900 

DO 108 K=KB,KE 00327000 

W(I, J,K)=WFAN(N) 00327100 

108 CONTINUE 00327200 

110 CONTINUE 00327300 

112 CONTINUE 00327400 

00327500 

RETURN 00327600 

END 0032770C 

00327800 

00327900 

00328000 

00328^00 

SUBROUTINE CAL? 00328200 

00328300 

CCMMON/R4/XC(93) , YC ( 93) , 2C ( 93) , XS ( 93 ) , YS ( 93 ) , ZS ( 93) , 00328400 

4 DXXC(93) ,0YYC (93) , DZZC ( 93 ) , DXXS (93) , DYYS ( 93 ) , D22S (93) 00328500 

COMMON/3L1/DX,DY, DZ , VOL, DTIME, VOLDT, THOT, TCOOL, ?I,Q,QR C03286C0 

CCXMON/3L7/NI , NIPl, NIXl , NJ, NUPl , NJMl ,'NK, NKPl , NKMl 00328700 

4 , NIP2 , N J?2, NKP2 , NA, NAPl , NAMl, N3, NBPl , N3M1 , KRuN, NCHIP, NJRA, NWRP 00328800 

COMMON/3L12/ NX’RITE, NTAPE, NTMAXO, NTREAL, TIME, SORSUX, ITER 00328900 

CCMMCN/3L16/ CCNSTI , CONST2 , CONST3, CONST4 , CCNST6 , NT, UO, H,UGRT, 3U0Y, 00329000 
4 CPO, PRT, CONDO, VISO, RKOO, KR, TR,TA, DTEMP, TWRITE, TTAPE, TMAX, GC, RAIR003291C0 
CCMMON/3L22/ICH?3(10) ,NCK?I (10) , JCHPB(IO) ,NCHPJ(10) ,XCH?3(10) , 00329200 

4 NCHPK(IO) ,TCH? (10) , CPS (10) , CONS (10) , vvFAN(lO) 00329300 

COMMON/3L31/ TOD (22 , 1 6, 32 ) , ROD (22 , 1 6, 32 ) , POD ( 22 , 1 6, 32 ) C03294C0 

4 , COD (22, 16, 32),UOD(22,16,32) ,VOD(22,16,32) ,WOD(22, 16,32) 00329500 

COMMON/3L32/ T (22 , 1 6, 32) , R (22 , 1 6, 32) , P (22 , 16, 32 ) 00329600 

4 ,0(22, 16,32) ,U (22, 16,32) ,V (22, 16,32) ,W (22, 16,32) 00329700 

COMMON/3L33/ TPD (22,16, 32) , RPD(22, 16, 32) , PPD (22,16, 32) 00329800 

4 , 0?D (22,16, 52) , UPD (22, 16,32) ,VPD (22, 16, 32) ,X?D (22, 16,32) 00329900 

CCMMCN/3134/ HE IGHT (22, 16 , 32) , REQ (22, 1 6, 32 ) , 0033C00C 

4 SMP(22,16,32),SMPP(22,16,32),??(22,16,32), 00330100 

4 DU (22, 16, 32) ,DV(22, 16, 32) , DW(22, 16, 32) 00330200 

CCMM0N/3L36/A?(22,16, 32),AE(22, 16,32) ,AW(22, 16, 52) , AN (22, 16,32) , 00330300 

4 AS(22,16,32),AF(22,16,32),AB(22,16,32), 00330400 

4 3? (22, 16, 32) , SU (22, 16, 32) , RI (22, 16,32) 00330500 

CCMMCN/EL37/ VI S ( 22 , 1 6 , 32 ) , COND (22 , 16,32) ,NOD(?2, 16,32) , RWALL (579) 0C33C6C0 
4 ,C?M(22, 16,32) ,HS2 (3,2) ,NHSZ (22,16, 32) ,RE3CRM(93) 0C330700 

00330800 



116 



CALCULATE COEFFICIENTS 


00330900 

C0331CCC 


DO ICC K=2,NK 


00331100 


K?2=K*2 


CC3312C0 


K?l=K'l 


00331300 


KM1=K-1 


00331400 


KM2=K-2 


00331500 


DO ICC J=2,NJ 


00331600 


J?2=J*r2 


00331700 




00331800 




00331900 


JM2=J-2 


00332000 


DO ICC 1=2, NI 


00332100 


:P2=I--2 


00332200 


:pi=i-i 


00332300 




00332400 


:M2=I-2 


00332500 


IF (I.EQ.NI) IP1=2 


00332600 

00332700 

00332800 


CENTRAL LENGTH OF THE SCALE CONTROL VOLUME 


00332900 

00333000 


DXP1=XL(IP1, J,K,0,0) 


00333100 


DXI =XL(I ,J,K,0,0) 


00333200 


DXM1=XL(IM1, J,K,0,0) 


00333300 

00333400 


DYP1=Y1(I, J?1,K,C,C) 


00333500 


DYJ =Y1(I,J ,K,0,C) 


C0333600 


DYM1=YL(I, JM1,K,C,0) 


00333700 

CC333800 


DZP1=ZL(I, J,KP1,C,0) 


00333900 


DZK =ZL(I,J,K ,C,0) 


00334000 


DZM1=ZL(I, J,KM1,0,C) 


00334100 

00334200 


SURFACE LENGTH OF THE CONTROL VOLUME 


00334300 

00334400 


DXN=XLC, J?:,K,0,2) 


00334500 


DXS=X1C, J , K,0,2) 


00334600 


DXF=X1(I, J,K?1,0,3) 


00334700 


DXB=XL(I, J,K ,C,3) 


00334800 

0C3349C0 


DYF=Y1(I, J,K?1,C,3) 


C03350C0 


DYB=YL(I, J,K ,C,3) 


00335100 


DYE=Y1(I?1, J,K,C, 1) 


003352CC 


DYW=YL(I , 1) 


00335300 


DZE=ZL(I?:,U,K,C, 1) 


^^33^ 


DZW=ZL (I , K, C, 1) 


CC3356CC 


DZN=ZL(I, J?:,K,C,2) 


CC3357CC 


DZS=Z1(I, J ,K,C,2) 


CC3359C0 

CC3359CC 

CC3360CC 


DEFINE AREA OF THE CONTROL VOLUME 


V/ wJ JO 

0C3362CC 


DXYF=DXF*DYF 


0C3363CC 


DXYB=DX3*DYB 


00336400 


DYZE=DYE*DZE 


00336500 


DYZW=DYW*DZW 


00336600 


DZXN=DZN*DXN 


00336700 


DZXS=DZSOXS 


00336800 

00336900 


VOL=DXI*DYJ*DZK 


00337000 


voldt=vol/dt:mk 


00337100 

00337200 


?.N=(R(I,ir,K) J? 1 ,K) *DYJ) / (DYPl-DYJ) 


00337300 


RS=(R(I, J,K) *DYM1+R(I, JM1,K) *DYJ) / (DYMl+DYJ) 


00337400 


RE=(R(I, J,K) -OXn (IPl, J,K) *DXI) / (DXPl-DXI) 


00337500 


RW=(R(I, J,K) -nXMlrRCMi, j,K) *DXI) / (DXMlrDXI) 


00337600 
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RF= (R (I, J,K) *DZP1+R(I, J,K?1) *DZK) / (DZPl+DZK) 


00337700 




RB= (R C, J,K) *DZM1*^R (I, J,KM1) *DZK) / (DZMl+DZK) 


00337800 

00337900 


c * • * 


DU ON VERTICAL WALLS AND DV ON HORIZENTAL WALLS ARE ZERO 


00338000 

00338100 




AN(I, J,K)=RN^DZXN*DV(I, J?1,K) 


00338200 




AS ( I , J, K) =RS*DZXS ’►DV ( I , J, K) 


00338300 




AE(I, J,K)=RE^DYZE*DU(IP1, J,K) 


003384CO 




AW(I, J,K) =RW-^DYZW*DU(I, J,K) 


00338500 




A?(I, J,K)=RF*DXYF*DW(I, J,KP1) 


00338600 




A3(I, J, K)=RB*DXYB*DW(I, J,K) 


00338700 

00338800 




CN=RN*V(I, JP1,K) *DZXN 


00338900 




CS=RS*V(I, J ,K> ^DZXS 


00339000 




CE=RE*U (IPl, J,K) *DYZE 


00339100 




CW=RW*UC , J,K) *DYZW 


00339200 




CF=RF*W(I, J,KP1) *DXYF 


00339300 




CB=RB^W(I, J,K ) *DXYB 


00339400 

00339500 




SMP (I, J,K)=-(R(I, J, K)-ROD (I, J,K) ) * VOL/DTIME-CE+CW-CN+CS-CF+CB 


00339600 


c 


SMP ( I , J, K) =-CE+CW-CN+CS-CF+CB 


00339700 




SU(I, J,K)=SMP (I, J,K> 


00339800 




SP(I, J,K)=0. 


00339900 


iOO 


CONTINUE 


00340000 

00340100 


c * * » 


TAKE CARE OF B.C. THRU AN, AS , AE, AW, AF, AB, SP AND SU 


00340200 


V- 




00340300 


^ • 


RADIUS DIRECTION 


00340400 

00340500 




DO 500 K=2,NK 


00340600 




DO 500 >2,NI 


00340700 




AS(I,2,K)=0. 


00340800 




AN(I,NJ,K)=0. 


00340900 


500 


CONTINUE 


00341000 

00341100 


^ • * » 


LEFT WALL AND RIGHT WALL 


00341200 

00341300 




DO 501 K=2,NK 


00341400 




DO 501 J=2,NJ 


00341500 


n 


AW(2, J,K)=0. 


00341600 


c 


AE(NI, J,K)=0. 


C03417CC 


501 


CONTINUE 


00341800 

00341900 


WWW 


FRONT AND BACK WALL 


00342000 

00342100 




DO 502 :=2,n: 


00342200 




DO 502 J=2,NJ 


00342300 




A3(I,U, 2)=0.C 


00342400 




AF(I, J,NK)=C.C 


00342500 


502 


CONTINUE 


00342600 

00342700 

00342800 

00342900 

00343000 




IF (NCHIP.EC.O) GOTO 105 


00343100 

00343200 




00343300 




00343400 


c » » » 


MODIFICATION FOR DECK BOUNDARIES 


00343500 

00343600 




DO 101 N=1,NCHIP 


00343700 




IB=ICH?3(N) 


00343800 




IE=IB-NCH?I (N)-l 


00343900 




I3M1=IB-1 


00344000 




IE?1=IE-1 


00344100 




U3=JCH?3(N) 


00344200 




JE=JB-NCH?J(N)-1 


00344300 




JBM1=JB-1 


00344400 
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JZ? 1= JI-1 


00344500 


:<3=KCH?3{N) 


00344600 


K£=K3^NCHPK(N)-1 


00344700 


K5M1=K5-1 


00344800 


K£Pl=KZ-rl 


00344900 

0C345C00 


DO 1C2 J=JB,JE-1 


00345100 


DO 102 K=KB,KE-1 


00345200 


AEdBMl, J,K)=0.C 


00345300 


AW(I£, J,K)=0.0 


00345400 

00345500 


102 CONTINUE 


00345600 

00345700 


DO 1C3 >IB, IE-1 


00345800 


DO 1C3 K=KB,KE-i 


00345900 


AN(I, J3M1,K)=0.C 


00346000 


AS(I, JE,K)=0.C 


00346100 


103 CONTINUE 


00346200 

00346300 


DO 106 I=IB,IE-1 


00346400 


DO 1C6 J=JB,JE-1 


00346500 


AF(I, J,K3M1)=0.0 


00346600 


AB(I, J,KE)=0.0 


00346700 


106 CONTINUE 


00346800 

00346900 


roR CELLS INSIDE OF THE DECKS 


00347000 

00347100 


DO 1C4 :=IB, IE-1 


00347200 


DO 1C4 J=JB,JE-1 


00347300 


DO 1C4 K=KB,KE-1 


00347400 


S?(I,U, :<)=-!. 0E20 


00347500 


AW(I, J,K)=0. 


00347600 


AE(I, J,K)=0. 


00347700 


AS{I, J,K)=0. 


00347800 


AN(i, j,;o=o. 


00347900 


SU(I, J,K)=0. 


00348CC0 


104 CONTINUE 


00348100 


101 CONTINUE 


00348200 


105 CONTINUE 


00348300 

00348400 

00348500 




00348600 




00348700 

00348800 

00348900 

00349000 


ASSE>:31E CDEFEICIENTS AND SOLVE DPFFERENCE EQUATICNS 


00349100 

00349200 


DO 3CC J=2,NJ 


00349300 


DC 3C0 :=2,NI 


00349400 


DO 300 K=2,NK 


00349500 


A?(i, j,:o=an( +as{i, j,k)+ae(I, j,k) +aw{i, j,k)-sp c, j,k) 


00349600 


& -AF C, J,K) -A3(I, J,K) 


00349700 


300 CONTINUE 


00349800 

00349900 


*** SOLUTION OF FINITE DIFFERENCE EQUATION 




CALL TRID (2,2,2,NI,NJ,NK,P?) 


00350200 

0035C300 


THIS IS FOR CKECKING 


00350400 

00350500 

00350600 


DO 161 i=i,n:pi 


00350700 


WRITE (c,*) : 


00350800 


949 FORMAT { ' AW ') 


00350900 


WRITE (6,949) 


00351000 


WRITE (6, 999) { (AW(I, J,K) ,K=ifNKPl> , J=1,NJP1> 


' '''' 

ouJO. 


181 CONTINUE 


00351200 
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DO ^60 I— i,NIPl 


00351300 


c 


WRITE (6,*) : 


00351400 


948 


FORMAT ( ' A£ ' ) 


00351500 


C 


WRITE (6,948) 


00351600 


r 


WRITE (6, 999) ( (AE(I, J,K) ,K=1,NKP1) , J=1,NJP1) 


00351700 


160 


CONTINUE 


00351800 




DO 170 I=i,NIPl 


00351900 


r* 


WRITE (6,*) I 


0035200C 


958 


FORMAT ( ' AB M 


00352100 




WRITE (6,958) 


00352200 


C 


WRITE (6, 999) ( (AB(I, J,K) ,K=1,NKP1) , J=1,NJP1) 


00352300 


170 


CONTINUE 


00352400 




DO 180 I=1,NIP1 


00352500 


n 


WRITE (6,*) I 


00352600 


968 


FORMAT ( ' AF M 


00352700 




WRITE (6,968) 


00352800 


C 


WRITE (6, 99 9) ( (AF(I, J, K) ,K=1,NKP1) , J=1,NJP1) 


00352900 


180 


CONTINUE 


00353000 




WRITE (6, 999) ( (SU(I, 5,K) ,K=1,NKP1) , I=1,NIP1) 


00353100 




DO 190 I=1,NIP1 


00353200 


C 


WRITE (6,M I 


00353300 


978 


FORMAT ( ' SU ') 


00353400 


C 


WRITE (6,978) 


00353500 


c 


WRITE (6, 999) ( ( SU ( I , J, K) , K=1 , NKP 1 ) , J=1,NJP1) 


00353600 


190 


CONTINUE 


00353700 




DO 191 I=1,NIP1 


00353800 


c 


WRITE (6,0 : 


00353900 


c 


WRITE (6,988) 


00354000 


988 


FORMAT ( ' ?P O 


00354100 




WRITE (6,999) ( (PP ( I , J, K) , J=1 , N JP 1 ) ,K=7,7) 


00354200 


191 


CONTINUE 


00354300 


999 


FORMAT (12E10.3) 


003544CC 

00354500 

00354600 

00354700 


C * * * 


CORRECT VELOCITIES AND PRESSURE 


00354800 






00354900 


* » » 


CORRECTION FOR VELOCITY U 


00355000 

00355100 




DO 600 :=2,NI 


00355200 




iMi=:-i 


00355300 




IF (I.EQ.2) IMl^NI 


00355400 




DO 600 J=2,NJ 


00355500 




DO 600 K=2,NK 


00355600 




u ( I , J, K) =u ( : , J, :<) -;)u ( I , J, K) MPP ( iMi , J, K) -p? ( I , J, :<) ) 


00355700 


600 


CONTINUE 


00355800 






003559CO 


^ • 


CORRECTION FOR VELOCITY V 


00356000 

00356100 




DO 603 J-3,NJ 


00356200 




JM1=J-1 


00356300 




DO 603 K=2,NK 


00356400 




DO 603 :=2,NI 


00356500 




V(I, J,K) =V(I, J, K) t!)V(I, J,K) * (PP (I, JM1,K)-PP (I, J,K) ) 


003566CC 


603 


CONTINUE 


00356700 

00356800 


^ * w » 


CORRECTION OF VELOCITY W 


003569CC 

00357000 




DO 604 K=3,NK 






:<M1=K-I 


00357200 




DO 604 1=2, NI 


00357300 




DO 604 J=2,NJ 


00357400 




W(I, J,K) =W(I, J, K) -:)W(I,U,K) MPP (I, J, KMD-P? c,u,:<) ) 


00357500 


604 


CONTINUE 


00357600 

W vy J 3 / ! \^\J 


1 


' COr<Rn.C - ON r 0:\ I'RESSURE ? 


00357900 

00358000 
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DO 6C6 J=2,NJ 


00358100 




DO 606 I=i,NIPl 


00358200 




DO 606 K=1,NK 


00358300 




? (I, J,K)=P (I, J, K) +P? C, J,K) 


00358400 




PP(I, J,K)=0. 


00358500 




606 CONTINUE 


00358600 






00358700 




THIS IS FOR R=0.0 CASE 


00358800 






00358900 




DO 75 I=i,NIPl 


00359000 




DO 75 K=1,NKP1 


00359100 


c 


U(I,1,K)=U(I,2,K) 


00359200 


c 


W(I,1,K)=W(I,2,K) 


00359300 




V(I,2,K)=V(I,3,K) 


00359400 




75 CONTINUE 


00359500 






00359600 






00359700 


c 


*** MODIFICATION FOR R=0.0 


00359800 


u 




00359900 




DO 55 K=2,NK 


00360000 




VY=0.0 


00360100 




VX=0 . 0 


00360200 




VZ=0.0 


00360300 




DO 50 1=2, NI 


00360400 




VY=VY+U(I,2,K) *COS(XS (I) ) 


00360500 




VX=VX-U(I,2,K) *SIN(XS(I) ) 


00360600 




50 CONTINUE 


00360700 






00360800 




DO 51 1=2, NI 


00360900 




VY=VY+V(I,3,K) *SIN(XCC) ) 


00361000 




VX=VX+V(I,3,K) *COS(XCC) ) 


00361100 




VZ=VZ+W(I,2,K) 


00361200 




51 CONTINUE 


00361300 






00361400 






00361500 


c 


FIND THE VELOCITIES AT R=0 . 0 


00361600 






00361700 




DO 52 I=1,NIP1 


00361800 




U (1, 1 ,K)= (-VX*S:N (XS ( I) ) -VY*COS (XS (I) ) ) /NIMl 


00361900 




V(I,2,K)= (VX*CCS (XCC) )+VY*SIN (XC (I) ) ) /NIMl 


00362000 




W(I, l,K)=VZ/NrMl 


00362100 




52 CONTINUE 


00362200 




55 CONTINUE 


00362300 






00362400 






00362500 






00362600 




*•* THIS IS FOR THE CYLINDER ONLY (CYLIC CONDITION) 


00362700 






00362800 




DO 76 J=1,N JP: 


00362900 




DO 76 K=1,NKP1 


00363000 




ua, J,K)=U(N[, J,K) 


00363100 




U(NIP1, J,K) =U (2, J,K) 


00363200 




V(l, J,K)=V(NI, J,K) 


00363300 




V(NIP1, J,K)=V(2, J,K) 


00363400 




W(l, J,K)=W(NI, J,K) 


00363500 




W(NIP1, J,K)=W(2, J,K) 


00363600 




76 CONTINUE 


00363700 






00363800 




**• THIS FOR SPHERE ONLY 


00363900 






00364000 




DO 77 1=1, n:?: 


00364100 




DO 77 j=i,njp: 


00364200 




U(I,wM)=UC, J,2) 


00364300 




v(i, j,:)=vc, j, 2 ) 


00364400 




AMI, J,2)=wc, J,3) 


00364500 




j(I,J,NKPl)=U(I, J,NK) 


00364600 




V(I, J,NKP1) =VC, J,NK) 


00364700 




W(I,J,NKP1)=a(I, J,NK) 


00364800 
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"77 CCNT*NJE 



:? (nch:?.eq.O) goto ii6 



### p. «########### #########f## ############ ########## 

*** RESET THE VELOCITY INSIDE OF DECK 



DO 120 N=1,NCHIP 

:5=ICH?3(N) 

:e=I3-nchpi (N)-i 

JB=JCH?3 (N) 

JE=JBrNCHPJ(N)-l 

K3=KCK?3(N) 

KE=KB+NCHPK(N)-1 



DO 1C9 I=IB,IE 
DO 1C 9 J=JB,JE-1 
DO 109 K=KB,KE-1 

w (x^s^^K)=0.0 

109 CONTINUE 

DO 118 I=IB,IE-1 
DO 118 J=JB,JE 
DO 118 K=KB,KE-1 
VC, J,K)=0.0 

118 CONTINUE 

DO 119 I=IB,IE-1 
DO 119 J=JB,JE-1 
DO 119 K=KB,KE 
W(I, J,K)=WFAN(N) 

119 CONTINUE 

120 CONTINUE 
116 CONTINUE 

*** RECALCULATE THE ERROR SOURCE AFTER CORRECTIONS OF U, V, ? 

soRsuy=o. 

RESORM(ITER)=0. 

DO 7CC J=2,NJ 



I=2,NI 



DO 7:c K=2,NK 
KX1=K-1 



CENTRAL LENGTH OF THE SCALAR CONTROL VOLUME 
DX?1=XLC?1, J,K,C,C) 

=X_(i. 

DXM1=X1(IM1, J,K,C,C) 

DYPI-YIC, J?1,K,C,D) 

DYJ =Y1(I,J ,K,0,C) 

DYX1 = Y1C, JM1,K,0,C) 

:Z?1 = 21C, J,KP1,C,C) 

D2K =2L(I,J,K ,0,0) 

D2X1=21(I, J,KM1,0,0) 



00364900 

003651CC 

00365200 

00365300 

00365400 

0C3655CC 

00365600 

00365700 

00365800 

00365900 

00366000 

00366100 

00366200 

00366300 

00366510 

00366392 

00366394 

00366400 

00366500 

00366600 

00366700 

00366800 

00366900 

00367000 

00367100 

00367200 

00367300 

00367400 

00367500 

00367600 

00367700 

00367800 

00367900 

00368000 

00368100 

00368200 

00368300 

v.«xjJDO*sww 

10368600 

00368700 

w C W w 

00368900 

00369000 

00369100 

00369200 

w 

00369400 

00369500 

00369600 

00369700 

00369800 

00369900 

vwJ / wwww 

00370100 

^ W J I ^ 

vwJ / W -3 W w 

00370400 

00370500 

/ wCwW 

V w J 

00370800 

00370900 

00371000 
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C *** SURFACE LENGTH OF THE CONTROL VOLUME 

0XN=XL(I, J?l, K, 0,2) 

DXS=XL{I, J , K, 0,2) 

0XF=XLC, J,KP1,C,3) 

DXB=XL(I, J,K ,0,3) 

0YF=YL(I, J,KP1,0,3) 

DY3=YL(I, J,K ,0,3) 

DYE=YL(I?1, J,K,0, 1) 

DYW=YL(I , J,K,0, 1) 

DZE=ZL(IP1, J,K,0, 1) 

DZW=ZL(I , J,K,0, 1) 

DZN=ZL(I, JP1,K,0,2) 

DZS=ZL(I, J ,K,0,2) 



C *** DEFINE AREA OF THE CONTROL VOLUME 

DXYF=DXF*DYF 

DXYB=DXB*DYB 

DYZE=DYE^DZE 

DYZW=DYW*DZW 

DZXN=DZN*DXN 

DZXS=DZS*DXS 

VOL=DXI*DYJ-'DZK 

VOLDT=VOL/DTIME 



RN=(R(I, J,K) *DYP1+R(I, JP1,K) ^DYJ) / (DYPl+DYJ) 

RS= (R{I, J,K) *DYM1+R(I, JM1,K) *DYJ) / (DYMl+DYJ) 

RE= (R (I, J,K) *DXP1^R(IP1, J,K) *DXI) / (DXPl+DXI) 

RW= (R(I, J,K) *DXM1+R(IM1, J,K) *DXI) / (DXMl+DXI) 

RF=(R {I, J,K) *DZP1^R(I, J,KP1) *DZK) / (DZPl+DZK) 

R5=(R {I, J,K) *DZM1-hR (I, J,KM1) *DZK) / (DZMl+DZK) 

CN=RN»V{I, JP1,K) *DZXN 
CS=RS*VC, J ,;<) *DZXS 
CE=RE*UC?:, J,K) *DYZE 
CW=RW*U C , J,K) *DYZW 
CF=R?«W{:, J,KP1) «DXYF 
:3=RB*WC, J,K )*DXYB 
C CM? C, J,K) =-c:r>CW-CNrCS-CF-CB 

5M? ( : , J, K) =- ( R { : , J, K) -ROD { I , J, K) ) *VOL/DTIME-CE-CW-CN-CS-CF-C3 

C 30RSUX IS ACTUAL MASS INCREASE OR DECREASE FROM CONTINUITY 

C EQUATUON , THIS WILL COMPARE TO SOURCE ' 

SORSUM=SORSUM ‘-SMP ( I , J, K) 

C *** RESORM IS SUM OF THE ABSOLUTE VALUE OF SM?(I,J,K) 

RESORM(ITER) KESORM(ITER) +ABS (SMP (I, J,K) ) 

7C0 CONTINUE 
RETURN 
END 



SUBROUTINE TR I D ( I ST, JST, KST, ISP , JSP , KSP , PHI ) 
COMMON / 31 7 / N I , V : ? : , X : Ml , N J , N JP 1 , N JMl , NK , NKP 1 , NKMl 



00371400 

00371500 

00371600 

00371700 

00371800 

00371900 

00372000 

00372100 

00372200 

00372300 

00372400 

00372500 

00372600 

00372700 

00372800 

00372900 

003730C0 

00373100 

00373200 

00373300 

00373400 

00373500 

00373600 

00373700 

00373800 

00373900 

00374000 

00374100 

00374200 

00374300 

003744C0 

003745CC 

00374600 

00374700 

C037480C 

00374900 

00375000 

00375100 

00375200 

00375300 

00375400 

00375500 

00375600 

00375700 

00375800 

00375900 

C03761CC 

00376300 

00376400 

00376500 

00376600 

00376700 

00376800 

00376900 

00377000 

00377100 

00377200 

00377300 

00377400 

00377500 

00377600 

00377700 

*00377800 

00377900 

*00378000 

00378100 
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& , NI?2 , N J?2 , XK?2 , NA, NAP 1 , NAMl , NB , NBP 1 , NBMl , KRUN , NCHIP , N JRA, NWRP 

COMMON/3L36/AP(22, 16,32) ,A£(22, 16,32) ,AW{22, 16, 32) , AN (22, 16,32) , 
& AS (22, 16,32) ,AF (22, 16,32) ,AB( 22, 16,32) , 

& 5? (22, 16,32) ,SU (22, 16, 32) , RI (22 , 1 6, 32 ) 

DIMENSION A (99) ,B (99) ,C (99) , PHI (22, 16,32) 

GOTO 4C5 

ISTM1=:ST-1 

A(ISTM1)=0. 

C(ISTM1)=0. 

DO 100 J=JST,JS? 

DO 100 K=KST,KSP 
DO 101 :=IST, ISP 
A(I)=AE(I, J,K) 

B(I)=AW(I, J,K) 

C(I)=AN(I, J,K) *PHIC, Jt1,K)+AS(I, J,K) -'PHI (I , J-1 , K) 

& -Ar (I, J,K) *PHI (I, J,K+1) +AB(I, J,K) *PHI ( I , J, K-1 ) ^SU ( I , J, K) 
TERM=1./ (AP (I, J,K)-B(I) *A(I-1) ) 

IF (ABS(A(I) ) .LE.l.OE-10) A(I)=0.0 
IF (ABS(B(D) .LE.l.CE-10) B(I)=0.0 
IF (ABS(C(I) ) .LE.l.OE-iO) C(I)=0.0 
IF (ABS(TERM) .LE.l.OE-10) TERM=0.0 
A(I)=A(I) *TERM 
C(I)=(C(I)+B(I) *C(I-1) ) ’►TERM 

101 CONTINUE 

PHI (ISP, J,K)=C(ISP) 

ISTA=I5T-1 

DO 102 ::=ISTA, iSP 

I=IST-IS?-II 

IP1=I-1 

PHI (I, J,K)=A(I) *PHI C?l, J,K)+C(I) 

102 CONTINUE 
100 CONTINUE 

DO 2000 J=JST,JSP 
DO 2000 K=KST,KS? 

PHI ( : ST-1 , J , K) =?H I ( IS? , J, K) 

PHI (IS?-1, J,K) =PHI (1ST, J,K) 

2000 CONTINUE 



JSTM1=JST-1 

A(JSTM1)=C. 

C(JSTM1)=C. 

DO 200 :<=KST,KS? 

DO 200 i=:sT, :s? 

:'Xr 

3(J)=ASC, J,K) 

c(j)=Ai( *PHi(:-:,>:,K)-AW(i, j,K) *phi c-i, j,k> 

& -AF (I, J,K) *PHI c, J,K+1) *AB(I,>;,K) *PHI ( I, J, K-1 ) -SU ( I , J, K) 
7ERM=1./ (AP •A(J-:) ) 

IF (A3S(A(J) ) .IE.: .CE-IC) A(J)=0.0 
IF (A3S(3(J) ) .LE.:.CI-:0) 3(J)=0.0 
IF (A3S (C (J) ) .IE. 1 .CE-:C) C { J) =0 . 0 
IF (A3S(TERM) .EE. .CI-:0) TERM=0.0 
A(J)=A(J) -TERM 
C (J) = (C (J) *B(J) (J-I) ) 'TERM 

201 CCNTINE'E 

PHI (I, J3?,K)=C(.;c?) 

JSTA=JST-1 

00 202 jj=jsta,.;e? 

J=JST-J3?-JJ 

?Hi c, j,K)=A(j) *:*h: c, j?:,k)-^c(J) 

202 CONTIKE'E 
200 CONTIN’E’E 



00378200 

00378300 

00378400 

00378500 

00378600 

00378700 

00378800 

00378900 

00379000 

00379100 

00379200 

00379300 

00379400 

00379500 

00379600 

00379700 

00379800 

00379900 

00380001 

00380002 

00380003 

00380010 

00380020 

00380100 

00380500 

0038060C 

003807C0 

00380800 

00380900 

00381000 

00381100 

00381200 

00381300 

00381400 

00381500 

00381600 

00381700 

00381800 

00381900 

00382000 

003821CC 

003822C0 

00382300 

003824CC 

C03825CC 

C03826CC 

003827CC 

CC38280C 

C03829C0 

003830CC 

003831C0 

00383200 

00383210 

00383220 

00383230 

0038324C 

0038330C 

C03834C0 

003838C0 

00383900 

00384000 

003841CC 

003842CC 

C03843C0 

0C3844C0 

C03845C0 

C03846CC 

003847CC 
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30 2CC1 J=JST,JS? 


00384000 




30 2001 K=KST,KSP 


00384900 




PHI CST-l, J,K)=PKI CSP, J,K) 


00385000 




PHI (ISP-^i, J,K)=PHI (IST, J, K) 


00385100 


2001 


CONTINUE 


00385200 

00385300 

00385400 




KSTM1=K5T-1 


00385500 




A(KSTM1)=0. 


00385600 




C(KSTM1)=0. 


00385700 




30 300 I=IST, IS? 


00385800 




30 300 J=JST,JSP 


00385900 




30 301 K=KST,KSP 


C0386000 




A(K)=AF(I, J,K) 


00386100 




B(K)=AB(I, J,K) 


00386200 




C(K)=AE(I, J,K) *PHI(I + 1, J,K)-^AW(I, J,K) *PHI (I-l, J,K) 


00386300 




i *AN(I,J,K) *PHI (I, Jrl,K) +AS(I, J,K) *PHI ( I , J-1 , K) -^SU ( I , J, K) 


00386400 




TERM=1./ (AP (I, J,K)-B(K) *A(K-1) ) 


00386500 




:? (ABS(A(K) ) .LE.l.OE-lO) A(K)=0.0 


00386510 




IF (ABS(B(K)) .LE.l.OE-10) B(K)=0.0 


00386520 




IF (ABS (C (K) ) .LE.l.OE-10) C(K)=0.0 


00386530 




IF (ABS(TERM) .LE.l.OE-10) TERM=0 . 0 


00386540 




A(K)=A(K) *TERM 


00386600 




C(K)-(C(K)^B(K) *C(K-1) ) -^TERM 


00386700 


301 


CONTINUE 


00387100 




PHI (I, J,KSP)=C(KSP) 


00387200 




KSTA=KST-1 


00387300 




30 302 KK=KSTA, XSP 


00387400 




K=KST+KSP-KK 


00387500 




K?1=K^1 


00387600 




PHI (I, J,K)=A(K) *PHI (I, J,KP1)+C(K) 


00387700 


302 


CONTINUE 


00387800 


300 


CONTINUE 


00387900 

00388000 




30 2002 J=JST,JSP 


00388100 




30 2002 K=KST,KS? 


00388200 




PHI (IST-1, J,K)=PHI (ISP, J,K) 


00388300 




PHI (ISP-1, J,K)=PHI (1ST, J,K) 


00388400 


2002 


CONTINUE 


00388500 

00388600 

C03887CC 




GOTO 700 


00388800 

00388900 


4405 


CONTINUE 


00389000 


405 


;<3?1=KS?-1 


00309100 




3 (KSPl) =0 . 


00389200 




3(KS?:)=0. 


00389300 




^0 6C0 = 


J ay *z\j sj 




:=IST^IS?-iI 


003895CC 




20 6C0 JJ=JST,JS? 


00389600 




J’=JST"^ JS?~ J J 


00389700 




20 601 KK=KST,KS? 


00389800 




K=KSP-KST-KK 


00389900 




K?1=K-: 


00390000 




A(K)=AF (I, J,K) 


00390100 




3 (K) =AB (I, J, X) 


00390200 




C(K)=A£(:,J,X) *PKIC*i,J,K)+AW(I, J,K) *PHI (I-l , J, K) +AN ( I , J, X) * 


C039C3CC 




S PHI (I, Jrl, X) ■^AS (I, J, K) »PHI (I, J-1,K) +SU (I, J,X) 


0039C4C0 




7£RM=l./(AP(I,s:,X)-A(K) *B(K+1) ) 


C039C500 




5(X)=3(K) "TERM 


0039C60C 




C (X) = (C (X) tA(K) *C (X + 1 ) ) *TERM 


00390700 




IF (A3S (A(K) ) .!£. I.OE-IO) A(K)=0.0 


00390800 




:F (A3S(3(X) ) .lE.l.CE-10) B(K)=O.C 


00390900 




IF (A3S (C (X) ) .!£. 1 .OE-IC) C(X)=0.0 




601 


CONTINUE 


00391100 




PHI C,J,XST)=C(KST) 


00391200 




k3Tp:=x3t+: 


00391300 




CO 6C2 X=XST?1,XS? 


00391400 
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PHI (I, J,K)=B(K) -PHI (I, J,K-1) -C(K) 
602 CONTINUE 
600 CONTINUE 

DO 2003 J=JST,JSP 
DO 2003 K=KST,KSP 
PHI (IST-1, J,K)=PHI (ISP, J,K) 

PHI ( ISP-^1 , J, K) =PHI ( 1ST, J, K) 

2003 CONTINUE 



JSP1=JS?+1 

B(JSP1)=0. 

C(JSP1)=0. 

DO 500 KK=KST,KSP 

K=KST+KSP-KK 

DO 500 II=IST,ISP 

I=IST+ISP-II 

DO 501 JJ=JST,JSP 

J=JSP-kJST-JJ 

JP1=J+1 

A(J)=AN (I, J,K) 

B(J)=AS(I, J,K) 

C(J)=AE(I, J,K) *PHI (I-Kl, J,K) +AW(I, J,K) *PHI ( I-l , J, K) +AF ( I , J, K) * 
& PHI (I, J,K+1) +AB(I, J,K) *PHI (I, J,K-1 )-kSU(I, J,K) 

TERM=1./ (AP (I, J,K)-A(J) ) 

B(J)=B(J) *TERM 

C(J) = (C(J)-^A(J) *C(J^D) *TERM 
I? (ABS(A(J) ) .LE.l.OE-10) A(J)=0.0 
Ir (ABS(B(J)) .LE.l.OE-10) B(J)=0.0 
I? (ABS(C(J)) .LE.l.OE-10) C(J)=0.0 
501 CONTINUE 

PHI (I, JST,K)=C(JST) 

JSTP1=JST+1 

DO 502 J=JSTP1,JSP 

PHI (I, J,K)=B( J) *PHI (I, J-1,K)+C(J) 

502 CONTINUE 
500 CONTINUE 

DO 2004 J=JST,JSP 
DO 2004 K=KST,‘KSP 
PHI (IST-1, J,K) =PHI (ISP, J,K) 

PHI ( ISP-l , J, K) =PHI ( 1ST, J, K) 

2004 CONTINUE 



:s?i=:s?“: 

BCSPD^O. 

ccs?:)=o. 

DO 400 w«=s^i>fc,wSP 

DO 400 KK=KST,KSP 
K=KST-KSP-KK 

DO 401 ::=:sT, isp 

:=isp-:3T-:: 

:?i=i*i 



401 



A(I)=AE(I, J,K) 

3(I)=AWC, J,K) 

C(I)=AN (I, J,K) 'PM! C, Jt1,K) *AS(I, J,K) *PKI (I, J-i,X) i-AF ( I 
& PHI ( : , Ki- 1 ) -A3 ( I , J, K) *?HI ( I , J, K-1 ) -SU ( I , J, K) 

TZ3M=1./ (A? (!, J,K)-A(I) *3(I-I) ) 

3(I)=5C) TERM 

CC) = {C(:)-A(I) >CC-1) ) *TERM 
:r (A3S(AC)) .LE.:.CE-10) A(I)=0.0 
:? (A3S(3C)) .LF..1.0E-10) 5C)=0.0 
:r (ABS(CC) ) .LE.l.OE-lO) CC)=0.0 
CCNTINvE 

PHI (1ST, J,K) =C( :ST) 



K) * 



C0391500 

00391600 

00391700 

00391800 

00391900 

00392000 

00392100 

00392200 

00392300 

00392400 

00392500 

00392600 

00392700 

00392800 

00392900 

C0393000 

00393100 

00393200 

00393300 

00393400 

00393500 

00393600 

00393700 

00393800 

00393900 

00394000 

00394100 

00394200 

00394300 

00394400 

00394500 

00394600 

00394700 

00394800 

00394900 

00395000 

00395100 

00395200 

00395300 

00395400 

00395500 

00395600 

00395700 

00395800 

00395900 

0039600C 

00396100 

00396200 

00396300 

00396400 

00396500 

00396600 

0C396700 

00396800 

00396900 

00397000 

C03971C0 

00397200 

00397300 

00397400 

00397500 

00397600 

003977C0 

00397800 

00397900 

00398000 

G039810C 

00398200 
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402 

400 



2005 

700 



:sT?:-!ST-^i 
DO 402 :=ISTP1, 15? 

PHI C, J,K)=B(I) 'PHI C-l, J,K)+C(I) 

CONTINUE 

CONTINUE 

DO 2005 J=JST,JS? 

DO 2005 K=KST,KSP 

PHI (IST-1, J,K)=PHI (ISP, J,K) 

PHI ( ISP+1 , J, K) =PHI { 1ST, J, K) 
CONTINUE 



CONTINUE 

RETURN 

END 



C 

C 



BLOCK DATA 



00398300 

00398400 

00398500 

00398600 

00398700 

00398800 

00398900 

00399000 

00399100 

00399200 

00399300 

00399400 

00399500 

00399600 

00399700 

00399800 

00399900 

00400000 

00400100 

00400200 

00400300 

00400400 

00400500 

00400600 



COMMON/BL7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 
& , NIP2 , N JP2 , NKP2 , NA, NAP 1 , NAMl , NB , NBP 1 , NBMl , KRUN, NCHIP , N JRA, NWRP 

COMMON/BL12/ NWRITE, NTAPE, NTMAXO , NTREAL, TIME, SORSUM, ITER 
COMMON/BL14/HCOEF,TINF,CNT,ABTURB,BTURB,VISL, VISMAX,QCORRT,?M1,PM20040C700 
COMMON/BL16/ CONSTl , CONST2, CONST3 , CONST4 , CONST6 , NT, UO , H, UGRT, BUOY, 00400800 
& CPC, PRT, CONDO, VISO,RHOO, HR, TR,TA,DTEMP,TWRITE,TTAPE,TMAX,GC,RAIR0C4 00 900 
DATA NI?2,NIPl,NI,NIMl/23, 22, 21,20/ 00401CC0 

DATA NJP2,NJP1,NJ,NJM1/17, 16, 15, 14/ 004011C0 

DATA NKP2,NKP1,NK,NKM1/33,32,31,30/ 004012C0 

DATA NAPl,NA,NAMl,NBPl,NB,NBMl/9,8, 7,27,26,25/ 00401300 

DATA UC,TA, PRT, RHOO,CPO,VISO, NTMAXO/ 00401400 

& I.O, 555. 86,1.0, C. 0714, 0.24,1. 56E-4,0/ 00401500 

DATA TINF,CNT,ABTURB,BTURB/1.0,0.2,2.0, 1.0/ 00401600 

DATA GC,RAIR/32. 17, 53.34/ 00401700 

DATA QCCRRT,?M1/1 .0,0 .9/ 00401800 

END 00401900 

00402000 

00402100 

00402200 

... 00402300 

00402400 
00402=00 
00402600 
00402700 
00402800 
00402900 

\^v40.^vv^ 

00403100 
00403200 
00403300 
00403400 
00403500 
00403600 
00403700 
00403800 
00403900 



SUBROUTINE GRID 



COMMON/R4/XC(93) , YC ( 93) , ZC ( 93 ) , XS (9 3) , YS ( 93 ) , ZS ( 93) , 

& DXXC(93) ,DYYC (93) ,DZZC(93) ,DXXS (93) ,DYYS(93) , DZZS (93) 

C0MXON/5i:/DX,DY,DZ,7OL,DTIME,VOLDT,THOT,TCOOL, ?I,0,QR 
COMMON/ 517/ N I , N :? I , N IMl , N J, NJPl , N JMl ,'NK, NKP 1 , NKMl 
& , NIP2, NJP2, NK?2 , NA, .\'A?1 , NAMl, NB, NBPi , NBMl , KRUN, NCKI? , NJRA, NWRP 



RENERATION OF GRID 

?I=4,*ATAN(1.) 

DX=:.0/?1CAT(NIM1) 

DY=1. /FLOAT (NJMl-2) 

DY=1 . /FLOAT (N JMl- 1 ) 
D2=?I/FLOAT (NKMl-NBrNA-2) 



19 



19 



DO 19 I=1,NIP2 
XS(I) = C-2) -DX-Z, 



XS(1)=“DX*2.0*?I 
XS (2) =0.0 
XS(3)=C. 01*2.0*?: 
DO 19 1=4,13 
XS(I) = C-3) «DX*2 
CONTINUE 



00404100 

00404200 

00404500 

00404400 

00404500 

00404600 

00404700 

00404800 

00404900 

00405000 
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o o f) f) o n 



XS(14)=XS(13) 
XS(13)=XS(14)-0.01*2.0»PI 
DO 18 1 = 15, NIPl 
XS(I)=XS(14) +(1-14) *DX»2.0*PI 
18 CONTINUE 

XS(NIP2)=XS (NIPl) +XS(3) 



YS(1)=0.000 
YS(2)=0.025 
C YS(3)=0.C5 

DO 3 J=3,NJ 
YS(J)=(J-2) *DY 

3 CONTINUE 
YS(NJP1)=YS (NJ) 

YS(NJ )=YS(NJPl)-3./8./12./9.6 
YS(NJP2)=YS(NJP1) +3./8./12./9.6 

CC DO 3 J=4,NJP2 
CC YS(J)=(J-3) »DY 
CC 3 CONTINUE 

DO 4 1=1, NIPl 
IP1=I+1 

DXXC(I)=XS(IP1)-XS(I) 

4 CONTINUE 

DXXC (NIP2) =DXXC (NIPl) 

DO 5 I=2,NIP2 
IM1=I-1 

DXXS(I)=.5* (DXXC (I) +DXXC(IM1) ) 

5 CONTINUE 
DXXS(1)=DXXS(2) 

DO 7 J=1,NJP1 
UPl=J+i 

DYYC(J) =YS(JP1)-YS(J) 

7 CONTINUE 

DYYC(NJP2)=DYYC(NJP1) 

DO 8 J=2,NJP2 
JM1=J-1 

DYYS(J) =.5- (DYYC(J) +DYYC(JM1) ) 

3 CONTINUE 

DYYS(1)=DYYS(2) 

DO 2C :=:,n:p2 

XC(:)=XSC) ■'DXXCC)/2.0 

20 CONTINUE 

DO 21 U=1,NJP2 

YC(J) =YS(J) rDYYC(J) /2.0 

21 CONTINUE 



DO 9 K=4,NA 
ZS(K) = (K-3) *D/. 

9 CONTINUE 

DO 30 X=NBP1,NK 
ZS(K)=ZS(NA) t (K-NB) *DZ 

30 CONTINUE 

DO 31 K=NAP 
ZS(K)=?I/2. 

31 CONTINUE 



ZS(1)=0.C 



00405100 

00405200 

00405300 

00405400 

00405500 

00405600 

00405700 

00405800 

00405900 

00406000 

00406100 

00406200 

00406300 

00406400 

00406500 

00406600 

00406700 

00406800 

00406900 

00407000 

00407100 

00407200 

00407300 

00407400 

00407500 

00407600 

00407700 

00407800 

00407900 

00408000 

00408100 

00408200 

00408300 

00408400 

00408500 

00408600 

00408700 

0040880C 

00408900 

00409000 

00409100 

00409200 

00409300 

00409400 

00409500 

00409600 

00409700 

0C4098CC 

00409900 

00410CC0 

00410100 

00410200 

00410300 

00410400 

00410500 

00410600 

00410700 

00410800 

00410900 

00411000 

00411200 

00411300 

00411400 

00411500 

00411600 

00411700 

00411800 
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o o o o 



ZS(2)=C.C5 
ZS(3)=0.1C 
ZS(NKP1)=ZS (NKMl) 
ZS(NK)=ZS(NKPl)-0.05 
ZS(NKM1)=ZS (NKPl)-O .1C 
ZS(NKP2)=ZS (NKPl) +O.C5 

ZS(NKP2)=ZS(NK) 

ZS (NKP1)=ZS (NKP2)-0.05 
ZS(NK)=ZS(NKP2)-0.1C 



DO 10 K=1,NKP1 

I? (K.GE.NA.AND.K.LT.NB) GOTO 10 
KP1=K+1 

DZZC(K)=ZS(KP1)-ZS(K) 

10 CONTINUE 

DO 32 K=NA,NBM1 
DZZC(K)=2.854/ (NB-NA) 

32 CONTINUE 

DZZC(NKP2)=DZZC (NKPl) 

DO 11 K=2,NKP2 

IF (K.EQ.NA.OR.K.EQ.NB) GOTO 11 
KMl=K-i 

DZZS(K) = .5* (DZZC{K) +DZZC(KM1) ) 

11 CONTINUE 

DZZS(1)=DZZS(2) 

DO 22 K=1,NKP2 

IF (K.GE.NA.AND.K.LT.NB) GOTO 22 
ZC(K)=ZS(K) +DZZC(K) /2.0 
22 CONTINUE 

DO 33 K=NA,NBM1 
ZC(K)=?I/2. 

33 CONTINUE 

IF (YS(1) .LT.C.O) YS(1)=0.C 
IF (YC(1) .IT.0.0) YC(1)=0.0 
PRINT * 

PRINT INPUT COORDINATE OF THE TANK IN THE ORDER OF ' 

PRINT : XS YS ZS XC YC' , 

& ' ZC DXXS DYYS DZZS DXXC 



C04119C0 

00412000 

C0412100 

004122C0 

00412300 

00412400 

00412500 

00412600 

00412700 

00412800 

00412900 

00413000 

00413100 

00413200 

00413300 

00413400 

00413500 

00413600 

00413700 

00413800 

00413900 

00414000 

00414100 

00414200 

00414300 

00414400 

00414500 

00414600 

00414700 

00414800 

00414900 

00415000 

00415100 

00415200 

00415300 

C0415400 

0041550C 

00415600 

00415700 

00415800 

004159C0 

00416000 

00416100 

00416200 

00416300 

00416400 



i , 'DYYC CZZC' 

DO 12 :=:,NK?2 

c WRITE (6, 102) :,XS(I) , YS(I) ,Z3(I),XC(I) , YC(I) ,ZC(I), 

c & DXXS ( I ) , DYYS ( I ) , DZZS ( I ) , DXXC ( I ) , DYYC ( I ) , DZ ZC ( I ) 

c 102 FORMAT(2X, 14, 12 (2X,F8.5) ) 

12 CONTINUE 

RETURN 

END 



FUNCTION XLC, J,K,M,N) 



C 


WHEN 


M OR N = 1 


THEN 

HALF 


SHIFT 


c 


WHEN 


M OR ^ 


J = 2 


THEN 

HALF 


SH iFT 

▼ T 




WHEN 


M OR ^ 


; = 3 


THEN 

HALF 


SHIFT 



CEIL IN THE NEG X DIRECTION ONE* 
(STAGGERED CELL) 

CELL IN THE NEG Y DIRECTION ONE* 
(STAGGERED CELL) 

CELL IN THE NEG Z DIRECTION ONE* 



00416500 

00416600 

00416700 

00416800 

00416900 

00417000 

00417100 

00417200 

00417300 

00417400 

00417500 

0C4176C0 

00417700 

00417800 

00417900 

00418000 

004181CC 

00418200 

00418300 

00418400 

00418500 

C04186C0 
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CJ CJ CJ c> o o o c; O o ( ) c > 



x = n = : then shift cell in the neg x directicn one* 

WHOLE CELL 

WHEN X = N = 2 THEN SHIFT CELL IN THE NEG Y DIRECTION ONE* 
WHOLE CELL 

WHEN X = N = 3 THEN SHIFT CELL IN THE NEG Z DIRECTION ONE* 
WHOLE CELL 



COMMON/R4/XC(93) , YC(93) , ZC ( 93 ) , XS (93) , YS ( 93 ) , ZS (93) , 

& DXXC(93) ,DYYC(93) , DZZC (93) , DXXS (93) ,DYYS (93) , DZZS (93) 

x:=xc c) 

X2=YC(J) 

X3=ZC(K) 

DXL=DXXC(I) 

:f(m.ec.n) goto loo 

:?(M.EQ.1.0R.N.EQ.l) X1=XS(I) 

IF (M. EQ . 1 .OR . N . EQ . 1 ) DXL=DXXS ( I ) 

:?(M.EQ.2.0R.N.EQ.2) X2=YS(J) 

:F(M.EC.3.0R.N.EQ.3) X3=ZS(K) 

GOTO 1C 00 

100 :f(m.eq.1) xi=xc(I-1) 

:f(m.eq.1) dxl=dxxc(I-1) 

:F(M.EQ.2) X2=YC(J-1) 

:F(M.EQ.3) X3=ZC(K-1) 

1000 CCNTINVE 

XL=X2*S:N (X3) *dxl 

RETURN 

END 



00416700 

00418800 

00418900 

004190C0 

00419100 

004192C0 

00419300 

00419400 

00419500 

00419600 

00419700 

00419800 

00419900 

00420000 

00420100 

00420200 

0C4203C0 

00420400 

00420500 

00420600 

00420700 

00420800 

00420900 

00421000 

00421100 

00421200 

00421300 

00421400 

00421500 



FUNCTION YL(1, J,K,M,N) 



HALF CELL (STAGGERED CELL) 
THEN SHIFT CELL IN THE NEG 
HALF CELL (STAGGERED CELL) 
THEN SHIFT CELL IN THE NEG 
HALF CELL (STAGGERED CELL) 
THEN SHIFT CELL IN THE NEG 
WHOLE CELL 

THEN SHIFT CELL IN THE NEG 
WHOLE CELL 

THEN SHIFT CELL IN THE NEG 
WHOLE CELL 



X1=XC (I) 

X2=YC (J) 

X3=ZC(K) 

0YL=DYYC(J) 
:F(M.EC.N) GOTO 100 



00421600 

00421700 

00421600 

00421900 

C0422000 







00422100 


DIRECTION 


ONE* 


00422200 






00422300 


DIRECTION 


ONE* 


00422400 




* 


00422500 


DIRECTION 


ONE* 


00422600 




«r 


00422700 


DIRECTION 


ONE* 


00422600 




* 


00422900 


DIRECTION 


ONE* 


00423000 




» 


00423100 


DI.RECTICN 


ONE* 


00423200 






00423300 






00423400 


.ZS(93) , 




00423500 


1 ,DYYS(93) 


,DZZS(93) 


00423600 



V J - V 

00423800 

00423900 

\j \J ^ 

304241CC 

C04242CC 



:F (M.EQ.2.0R.N.EQ.2) X2=YS(J) 

: r (M . . 2 . OR . N . EQ . 2 ) DYL=DYYS ( J) 
:?(X.IQ.:.OR.N.EQ.l) X1=XSC) 
:r(y..i:.3.0R.N.EQ.3) x3=zs(K) 

100 IF(X.E0.2) X2-YC(J-1) 

IF(X.EC.2) DYL=DYYC (J-1) 

:f(x.eo. 1) x;-xc(i-i) 

:F(X.E0.3) X3=ZC(K-1) 

1000 CONTINUE 

YL=1.00-DYL 

RETURN 



00424500 
00424400 
00424500 
00424 6uv 
00424700 
00424800 
00424900 
00425000 

/ 9 ^ ■ *• ** 

00425300 

00425400 
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END 



FUNCTION ZL{I, J,K,M,N) 



WHEN M OR N = 1 THEN SHIFT CELL IN THE NEC X DIRECTION ONE* 

HALF CELL (STAGGERED CELL) 

WHEN M OR N = 2 THEN SHIFT CELL IN THE NEG Y DIRECTION ONE* 

HALF CELL (STAGGERED CELL) 

WHEN M OR N = 3 THEN SHIFT CELL IN THE NEG Z DIRECTION ONE* 

HALF CELL (STAGGERED CELL) 

WHEN M = N = 1 THEN SHIFT CELL IN THE NEG X DIRECTION ONE* 

WHOLE CELL * 

WHEN M = N = 2 THEN SHIFT CELL IN THE NEG Y DIRECTION ONE* 

WHOLE CELL 

WHEN M = N = 3 THEN SHIFT CELL IN THE NEG Z DIRECTION ONE* 

WHOLE CELL 

COMMON/R4/XC(93) , YC (93) , ZC (93) , XS (93) , YS (93) , ZS (93) , 
i DXXC(93),DYYC(93) , DZZC (93) , DXXS (93) , DYYS (93 ) , DZZS (93) 

COMMON/BL7/NI , N IP 1 , NIMl , N J, NJP 1 , N JMl , NK, NKP 1 , NKMl 
& , NIP2 , N JP2 , NKP2 , NA, NAP 1 , NAMl , NB, NBP 1 , NBMl , KRON, NCKIP , NJRA, NWRP 

X1=XC(I) 

X2=YC (J) 

X3=ZC (K) 

DZL=DZZC(K) 

IF(M.EQ.N) GOTO 100 



IF(M.EQ.2.0R.N.EQ.2) X2=YS(J) 
IF(M.EQ.l.OR.N.EQ.l) X1=XS(I) 
IF(M.EQ.3.0R.N.EQ.3) GOTO 200 
GOTO 1000 

200 CONTINUE 

IF (K.EQ.NA.OR.K.EQ.NB) GOTO 2000 
X3=ZS(K) 

DZL=DZZS(K) ■ 

GOTO 1000 



X3=ZC(K-i) 
DZL=DZZC (K-1) 
X2=YC(J-1) 
X1=XC(I-1) 



100 IF(M.EQ.3) 

IF(M.EQ.3) 

IF(M.EQ.2) 

IF(M.EC.l) 

1000 CONTINUE 
Z1=X2*DZL 

V3W 1 W J U V 

2000 CONTINUE 

DZL1=0ZZC (K-1) 

DZL2=DZZC(K) 

IF (K.EQ.NB) DZLl=OZZC{K) 

IF (K.EQ.NB) DZL2=DZZC(K-1) 
ZL=(X2*DZLlrDZL2) /2 . 

300 CONTINUE 
RETURN 
END 



FUNCTION SILIN(V1,V2,D1,D2) 

IF (D1.EQ.0.C.AND.D2.EQ.0.0) 
IF <D: .EQ.O .0 .AND.O2.EQ.0 .0) 
SILIN=(V:-D2*V2*D1) / (DlrD2) 
RETURN 
END 



D1=0.1 

D2=0.1 



00425500 

00425600 

00425700 

00425800 

00425900 

00426000 

00426100 

00426200 

00426300 

00426400 

00426500 

00426600 

00426700 

00426800 

00426900 

00427000 

00427100 

00427200 

00427300 

00427400 

00427500 

00427600 

00427700 

00427800 

00427900 

00428000 

00428100 

00428200 

00428300 

00428400 

00428500 

00428600 

00428700 

00428800 

00428900 

00429000 

00429100 

00429200 

00429300 

00429400 

00429500 

00429600 

00429700 

00429800 

C04299C0 

00430000 

0C43C100 

00430200 

0043C3C0 

0043C4C0 

0043C50C 

00430600 

0043C7C0 

0043080C 

004309CC 

00431000 

00431100 

00431200 

00431300 

00431400 

00431500 

00431600 

00431700 

00431800 

00431900 

00432C00 

00432100 

00432200 
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00432300 

C 00432400 

FUNCTION BILIN(V1,V2,0:,D2,V3,V4,D3,D4,D5,D6) 00432500 

C .............................................. 00432600 

V12=(V •02+V2'Dl) / (01 tD2) 00432700 

V34=(V3 04+V4-D3) / (03-D4) 00432800 

BILIN= (V12«D6+V34»D5) / (D5+D6) 00432900 

END 00433000 

00433100 

00433200 

C .................. 00433300 

SUBROUTINE STRESS 00433400 

C .................. 00433500 

COMMON/R4/XC(93) , YC (93) , ZC (93) , XS (93) , YS ( 93) , 2S (93) , 004 33600 

& DXXC(93) ,DYYC(93) ,DZZC (93) , DXXS (93) ,DYYS (93) , DZZS (93) 00433700 

COMMON/3L1 /DX, DY, D2, VCL, DTIME, VOLDT, THOT, TCOOL, PI , Q, QR 00433800 

COMMON/BL7/NI,NIPl,NIMl,NJ,NJPl,NJMl,NK,NKPl,NKMl 00433900 

5 ,NIP2,NJP2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP 00434000 

COMMON/BL20/SIG11 (22, 16,32) ,SIG12 (22, 16,32) ,SIG22 (22, 16,32) 00434100 

6 ,SIG13(22,16,32),SIG23(22,16,32),SIG33(22,16,32) 00434200 

COMMON/BL22/ICHPB(10) ,NCHPI (10) , JCHPB ( 10) , NCHPJ (10) ,KCHPB (10) , 00434300 

& NCHPK(IO) ,TCHP(10),CPS(10) ,CONS(10) ,WFAN(10) 00434400 

COMMON/BL32/ T (22, 1 6, 32) , R (22, 1 6, 32 ) , P (22 , 1 6, 32 ) 00434500 

& ,C(22, 16,32) ,U(22, 16,32) ,V(22, 16,32) ,W(22, 16,32) 00434600 

COMMON/BL37/ VIS (22, 16, 32) ,COND (22, 16,32) , NOD (22,16,32) ,RWALL (579) 00434700 
& ,CPM(22, 16, 32) ,HSZ (3,2) ,NHSZ (22, 16,32) ,RESORM(93) 00434800 



00434900 

00435000 

00435100 

00435200 

00435300 

00435400 

00435500 

00435600 

00435700 

00435800 

00435900 

00436000 

00436100 

00436200 

00436300 

00436400 

00436500 

00436600 

00436700 

00436800 

00436900 

00437000 

CC4371C0 

00437200 

C0437300 

00437400 

00437500 

00437600 

00437700 

00437800 

00437900 

00438000 

00438100 

00438200 

00438300 

00438400 

00438500 

00438600 

00438700 

00438800 

00438900 

00439000 



DO 100 K=2,NK 

KP2=K+2 

KP1=K+1 

KM1=K-1 

KM2=K-2 

DO 100 J=2,NJ 

JP2=J+2 

JP1=J+1 

JM1=J-1 

JM2=J-2 

DO 100 1=2, NI 

:P2=I-2 

IP1=I*1 

IM1=I-1 

IM2=I-2 

CENTRAL LENGTH OF THE SCALAR CONTROL VOLUME 

DX?l=XL(I'l, J,K,0,C) 

DXI =XL(I ,-,K,0,0) 

DXMl=XL(iy.l, J,K,0,C) 

DYP1=YL(I, J?1,K,C,C) 

DYJ =YL(I,J ,.<,0,0 
DYM1=YL(I, JM1,K,C,0) 

DZP1=ZL(I, J,;<P1,C,C) 

DZK =2L(I,C,K ,0,0) 

OZMl = ZL(I, J,.K.X1,C,0) 

SURFACE LENGTH OF THE CONTROL VOLUME 



0XN=XL( 


* -D *• 

^ f ^ - f 


K,C,2) 


DXS=XL( 


:,U ,K,0,2) 


DXF=XL( 


I, J,KP1,0,3) 


DXB=X1( 




,0,3) 


DYF=YL( 


^ \ 0 0 j) 


DYB-YK 




f r 3 ) 


DYE=Y1( 


- O - - y ^ \ 
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3YW=Y1C , J,K,0, 1) 


004391C0 

0C4392C0 


D2E=ZL(:?1, 1) 


CC439300 


32W=2LC ,J,K,0, 1) 


00439400 


DZN=ZL(I, J?1,K,0,2) 


00439500 


DZS=Z1C, J ,K,0,2) 


00439600 

00439700 


CENTRAL LENGTH OF THE STAGGERED CONTROL VOLUME FOR T 


00439800 

00439900 


DXEE=X1(IP2, J,K,0, 1) 


00440000 


DXE =XL(IP1, J,K,0, 1) 


00440100 


DXW =XL(I , J,K,0, 1) 


00440200 


DXWW=XL(IM1, 1) 


00440300 

00440400 


DYNN=YL(I, JP2,K,0,2) 


00440500 


DYN =YL(I, JPlrK,0,2) 


00440600 


DYS =YL(I,J ,K,0,2) 


00440700 


DYSS=Y1(I, JM1,K,0,2) 


00440800 

00440900 


DZFF=ZL(Ir J,KP2,0,3) 


00441000 


DZF =ZL(I, J,KP1,0,3) 


00441100 


DZB =ZL(I,J,K ,0,3) 


00441200 


DZBB=ZL(I, JrKMl,0,3) 


00441300 

00441400 


UBAR=C.5* (UdPl, J,K)+U(I, J,K) ) 


00441500 


VBAR=0.5* (V(I, JP1,K)+V(I, J, K) ) 


00441600 


WBAR=C.5* (W(I, J,KP1)+W(I, J, K) ) 


00441700 

00441800 


DXY=DXI*DYJ 


00441900 


DYZ=DYJ*DZK 


00442000 


DZX=DZK»DXI 


00442100 

00442200 


SIGH C, J,K)=2. *VIS (I, J,K) * ( (UdPl, J,K)-U (I, J,K) ) /DXI 


00442300 


& +VBAR* (DXN-DXS) /DXY 


00442400 


& -rWBAR* (DXF-DXB) /DZX) 


00442500 

00442600 


SIG22 C, J,K)=2. *VIS (I, J,K) • ( ( V (I , JP 1 , K) -V (I , J , K) ) /DYJ 


00442700 


& -WBAR* (DYF-DYB) /DYZ 


00442800 


& ^UBAR* (DYE-DYW) /DXY) 


00442900 

00443000 


SIG33 d, J,K)=2. -VlSd, J,K) * ( ( W (I , J, KP 1 ) -W (I , J, K) ) /DZK 


00443100 


& -UBAR* (DZE-DZW) /DZX 


00443200 


& -VBAR* (DZN-DZS) /DYZ) 


00443300 


CCNTINCE 


00443400 

00443500 


CO 2CC K=2,NKP1 


00443600 


:<?2=K-2 


00443700 


K?:=K-i 


00443800 


KM1=K-1 


00443900 


KX2=K-2 




DC 2CC J=2,NJP1 


00444100 


J?2=J-2 


00444200 




00444300 




00444400 


JX2=J-2 


00444500 


DC 2CC :=2,NIP1 


00444600 


:?2=i-2 


00444700 


I?1=I 


00444800 




00444900 


:*y.2=:-2 


00445000 

00445100 

00445200 


«• FOLLOWING DX, DY, DZ, ARE BASED ON THE LOCAL CONTROL 


00445300 


VOLUME FOR 51012 


00445400 

r\ r\ » M c * ^ 

*1 J 3 W W 


IF (J.EQ.2) GOTO 300 


00445600 


DXN=XLC, J ,K, 1,0 


00445700 


DXS=XLC, JM1,K, 1,0 


004458C0 
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DYE=YLC ,J,K,2,0) 
DYW=YL(IM1, J,K,2, 0) 
3XI=XLC ,J,K,1,2) 
DYJ=YL(I ,J,K,2,1) 

OYN=YLC,J ,K,1,0) 
DYS=YL(I, JM1,K,1,0) 
DXE=XL(I ,J,K,2,0) 
DXW=XL(IM1, J,K,2,0) 



•jbar=s:lin (u ( i, j, x) , u ( i, jmi , K) , dyn, dys) 
vbar=s:lin ( V ( i , j, K) , v ( imi , j, K) , dxe, dxw) 



VIS12=3ILIN(VIS(I ,J,K),VIS(I , JMI, K) , DYN, DYS, 

& VIS (IMI, J,K) ,VIS(IM1, JM1,K) ,DYN,DYS, DXE, DXW) 

SIG12 C, J,K)= VISI2* ( (V(I, J,K)-V(IM1, J,K) )/DXI 

S -VBAR* (DYE-DYW) / (DXI*DYJ) ) 

SIG12 (I, J,K)=SIG12(I, J,K)+VIS12* ( (U (I , J, K)-U ( I, JMI , K) ) /DYJ 
4 -UBAR* (DXN-DXS) / (DXI*DYJ) ) 

300 CONTINUE 

C FOLLOWING DX, DY, DZ, ARE BASED ON THE LOCAL CONTROL 

C VOLUME FOR SIG13 

DXF=XL(I,J,K ,1,0) 

DXB=XLC, J,XM1, 1,0) 

DZE=ZL(I ,J,K,3,0) 

DZW=ZLCM1, J, K,3,0) 

DXI=XL(I ,J,K, 1,3) 

DZK=ZLC ,J,X,3,1) 

DZF=ZL(I,J,X ,1,0) 

DZB=ZL(I,J,KM1,1,C) 

DXE=XL(I ,J,K,3,0) 

DXW=XLCM1, J,K,3,C) 



IF (DZF . EQ . C . C . OR . DZB . EQ . 0 . C . OR . DZE . EQ . 0 . C . OR . DZW . EQ . 0 . 0 ) 
4 WRITE (6,*) I,J,X, DZF, DZB, DZE, DZW 

•j3ar=s:l:n ( u (i, j, k) , u { i , j, kmi ) , dzf, dzb) 
w3ar=s:l:n (w< i, j,k) ,w(imi, j,x) ,dxe,dxw) 

visi3=b:l:n(vis(i ,j,k),vis(I , j,kmd ,dzf,dzb, 

4 VIS(IM:,J,K),VIS(IM1,J,KM1),DZF,DZ3, dxe, DXW) 



3IG13 (:,J,X)= VIS13*( (W(I,J,X)-W(iy.l, J,K) )/DXI 

4 -W3AR* (DZE-DZW) / (DXI'DZK) ) 

3IG13 C, J,:-<) =S:G13 (I, J,K) +VIS13* ( (U(I, J,K)-UC, J,KM1) )/DZK 
i -UBAR* (DXF-DX3) / (DXI'DZK) ) 



FOLLOWING DX, DY, DZ, ARE BASED ON THE LOCAL CONTROL 
VOLUME FOR SIG23 



DZN=ZLC 

DZS=ZLC 

DYF=YLC 

DYB=YLC 

DZK=ZLC 

DYJ=YLC 



w , Kf 3 , Z) 
3,0 
, 2,0 
J, KMI, 2,0 
J, K,3,2) 

J, K, 2, 3) 



3YN=Y1C 
3YS=Y1C 
3ZF = 21C 
3ZB=21C 



J ,K,3,0 
JX1,K,3,0 
, 2,0 
J, KM1,2, Z) 



wbar=s:i:n (w ( r , j, k) , w ( i , jmi , :o , dyn, dys) 

V3AR=S :-IX ( V ( : , J, K) , V ( I , J, KMl ) , DZF, DZB) 



00445900 

00446000 

00446100 

00446200 

00446300 

00446400 

00446500 

00446600 

00446700 

00446800 

00446900 

00447000 

00447100 

00447200 

00447300 

00447400 

00447500 

00447600 

00447700 

00447800 

00447900 

00448000 

00448100 

00448200 

00448300 

00448400 

00448500 

00448600 

00448700 

00448800 

00448900 

00449000 

00449100 

00449200 

00449300 

00449400 

00449500 

00449600 

00449700 

00449800 

00449900 

00450000 

00450100 

00450200 

00450300 

00450400 

00450500 

0045C6CO 

00450800 

00450900 

00451000 

00451100 

00451200 

00451300 

00451400 

00451500 

00451600 

00451700 

00451800 

00451900 

00452000 

00452100 

00452200 

00452300 

00452400 

00452500 

00452600 
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200 



C 

C 



998 

no 



V:S23=3ILIN(VIS(I , J, K) , VIS ( I , JMl , K ),DYN,DYS, 

S V:S(I, J,KM1) ,VIS(I, ,DYN,DYS, DZF, DZB) 

SIG23C, J,K)= VIS23* ( (V ( I , J, K) -V ( I, J, KMl ) ) /DZK 

4 -VBAR* (DYF-DYB) / (DZK*DYJ) ) 

SIG23 C, J,K)=SIG23 (I, J, K) +VIS23* ( (W (I , J, K) -W ( I , JMl , K) ) /DYJ 
4 -WBAR* (DZN-DZS) / (DZK*DYJ) ) 

CONTIKVZ 
DO lie :=1,NIP1 
DO no J=1,NJ?1 

WRITE (6, 998) I , J, SIGH (I , J, 5) , SIG12 ( I, J, 5) , SIG13 (I , J, 5 ) , 

4 SIG22 (I, J, 5) ,SIG23 (I, J, 5) ,SIG33 (I,J,5) 

FORMAT (2X, 14, IX, I4,6(1X,E11.4) ) 

CONTINUE 

RETURN 

END 



SUBROUTINE CALQ(LL) 



0045270C 

004528C0 

00452900 

00453000 

0045310C 

004532CC 

00453300 

00453400 

00453500 

00453600 

00453700 

00453800 

00453900 

00454000 

00454100 

00454200 

00454300 

00454400 

00454500 

00454600 

00454700 

_00454800 

*00454900 

00455000 



.................................................004 55100 

C0MM0N/3L1/DX,DY,DZ,V0L,DTIME,V0LDT,TH0T,TC00L, PI,Q,QR 00455200 

C0MM0N/3L7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 00455210 

COMMON/3L12/ NWRITE,NTAPE,NTMAXO, NTREAL, TIME, SORSUM, ITER 00455300 

COMMON/BL14 /HCOEF , TINF, CNT, ABTURB, BTURB, VISL, VISMAX, QCORRT, PMl , PM200455400 
CCMM0N/3L16/ CONSTl, CONST2, CONST3 , CONST4 , CONST6 , NT, UO , K, UGRT, BUOY, 004 55 500 

5 CPO, PRT, CONDO, Vise, RHOO , HR, TR, TA, DTEMP, TWRITE, TTAPE, TMAX, GC, RAIR 004 55600 

COMMON/3L34/ HEIGHT (22, 16, 32) , REQ (22, 16, 32) , 00455700 

6 SMP(22,16,32),SMPP(22,16,32) ,PP(22,16,32), 00455800 

S DU (22, 16, 32) ,DV(22, 16,32) ,DW(22, 16,32) 00455900 

COMMON/3L37/ VIS (22 , 16, 32) , COND (22, 16,32) , NOD (22, 16,32) ,RWALL (579) 004 55910 



S ,C?M (22, 16,32) ,HSZ(3,2) ,NHSZ(22, 16,32) ,RESORM(93) 

:OMMON/5139/ALEW, PCURVE, CONSRA, PCURMl , PSOUTH, QCORR, PERROR 



IN MANY OF TH; 
ADJUSTING 



. FOLLOWING LINES A TEMPORARY CORRECTION FOR 
QQ TO AGREE WITH THE PRESSURE HAS BEEN APPLIED. 



XTIME=TIME*H/UO 

VCLT=0.0 
DC 113 1=2, n: 

DO 113 J=2,NJ 
DC 113 :<=16,17 



00455920 

00456000 

00456100 

00456200 

00456300 

00456400 

00456500 

00456510 

00456520 

00456530 

00456540 

00456550 



IF (NHSZ (I, J,K) .LQ.O) 
DXI =X1(I ,J,K,C,0) 

DYJ =Y1(I,J ,K,0,0) 

DZK =Z1(I,J,X ,0,0) 

VOL=DXI*DYJ*DZK*H*H*H 
VOLT=VCLTxVOL 
113 CONTINUE 



GOTO 113 



QRVOL=0 . 

DO 70 1=561,579 

QRVOL=QRVOL+RWALL (I)'1./12.*0.2*PI 
70 CONTINUE 

QR=QRVCL/ VOLT *UO* CPO -RHOO *TA/H 
IF (XTIME.lt. 23.1) T.HEN 

.= CURVE=9. /R9522E-5-XTIME**2-2.38831CE-6*XTIME- - 3- 
& REQ(10,9,’.6) 

D?DT =9.789522E-5*XTiy.E*2-2.388310E-6*XTIXE**2-3 
?CURVE=:.0C52 + .fj-.264E-3-XTIME-.22604E-5-XTIKE*-2-.272 62E-e*XTIME 



00456560 

00456570 

00456580 

00456590 

00456591 

00456592 

00456593 

00456594 

00456595 

00456596 

00456597 

00456598 

00456599 

00456600 

00456700 

00456800 

00456900 

00457000 

00457100 

C0457200 

*00457300 
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& 3-. 115621E-i:-XTIME**4+REQaO, 9, 16) 

DPDT=.8i264E-3-.22604E-5^XTIME*2+.27262E-8*XTIME*« 

& 2*3.0-.i:5621E-ll*XTIME*^3M 

ENDIF 

IF ( LL .EQ. 1) THEN 
QQ=1 ,0E8*DPDT 
Q=QQ»3. 4134/60. /60. 

65 CONTINUE 

Q=Q*QCORRT-QR 

ELSE 

C THIS USES A CURVE FIT THROUGH THE BURNRATE DATA GIVEN BY NRL 
QCORRT=0.0 
QCORR=0 .0 
ITEST = 0 

BURNR1= 5.4576748 +0 . 18815346*XTIME-.20153996E-03’*XTIME**2 
BURNR2= -1.3116787 . .33158595‘XTIME- .7342952E-03*XTIME^*2 
& -^.50 94 5510E-0 6*XTIME**3 

IF (XTIME .LT. 100) THEN 

BURNR= BURNR2 + 1 .3117-.013117*XTIME 
ELSE 

BURNR = BURNR2 
ENDIF 

IF (XTIME .LE. 300) GO TO 60 
IF(BURNR2 .LT, BURNRl) THEN 

BURNR = (BURNRl + BURNR2) / 2 
GO TO 60 

ELSE 

IF ( XTIME .LT. 600,0) GO TO 60 
IF (ITEST .EQ. 0) THEN 
BURNR3 = BURNR2 
ITEST = 1 
ENDIF 

BURNR = BURNR3 
ENDIF 

60 Q = BURNR*2.2C46»9612./3600.-QR 
CC THIS GIVES Q IN BTU/SEC 

ENDIF 

0=59.313 + 0 . 7195*XTIME-0 .113 9E-2*XTIME**2-0.3367E-5-XTI.ME**3 

0=0*3412/3600 

RETURN 

END 



00457400 

00457500 

00457600 

00457700 

00457710 

00457800 

00457900 

00458000 

00458100 

00458200 

00458300 

00458400 

00458410 

00458420 

00458500 

00458600 

00458700 

00458800 

00458900 

00459000 

00459100 

00459200 

00459300 

00459400 

00459500 

00459600 

00459700 

00459800 

00459900 

00460000 

00460100 

00460200 

00460300 

00460400 

00460500 

00460600 

00460700 

00460800 

00460900 

00460910 

00460920 

00461000 

C04611CC 

00461200 

00461300 

00461400 



SUBROUTINE RADHT (T4 WALL, VFMXC ) 



00461500 

----*---*00461600 

00461700 

**«**..QQ4 6^000 

C0MM0N/BL7/NI,N:?1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 00461900 

& , NIP2 , N JP2 , NKP2 , NA, NAPl , NAMl , NB , NBP 1 , NBMl , KRUN, NCHIP , NJRA, NWR? 004 62000 

COMMON/BL16/ CONSTl , CONST2, CONST3, CON ST4 , CONST6, NT, UO, H, UGRT, BUOY, 004 62100 
& CPO, PRT, CONDO, VIS0,RHO0, HR, TR,TA,DTEMP,TWRITE,TTA?E,T.MAX,GC,RAIR004 62200 
COMMON/BL32/ T(22,16, 32) , R (22, 16, 32) ,? (22, 16, 32) 004 62300 

& , C (22, 16,32) ,U (22, 16,32) ,V (22, 16,32) ,W(22, 16,32) 00462400 

COMMON/BL37/ VIS (22, 16,32) ,COND (22, 16, 32) , NOD (22, 16, 32) , RWALL (579) 004 62500 



& ,CPM(22, 16,32) ,HS2 (3,2) ,NHS2 (22, 16,32) ,RESORM(93) 

COMMON/BL39/ALEW, PCURVE, CONSRA, PCURMl ,? SOUTH, QCORR, TERROR 

DIMENSION VFMXC (579,579) ,T4WALL(579) 

DO 4010 K=3,NKM1 
DO 4010 1=2, NI 
II=(K-3) - (NI-1) -I-l 

T4WALL CD =CONSRA -T ( I , N JRA, K) *T ( I , N JRA, K) *T ( I , N JRA, K) *T ( I , N JRA, K) 
4010 CONTINUE 



)04626C0 

00462700 

C04628CC 

00462900 

00463000 

00463100 

0046320C 

00463300 

00463400 

00463500 

00463600 
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C RADIATION FROM THE FIRE TO THE WALL 

DO 4011 J=3,9 
JJ=561-^9-J 

AVT=0.25* (T(16, J, 16)+T(17, J, 16)+T(16, J, 17) +T ( 17, J, 17) ) 
T4WALL ( JJ) =CONSRA*AVT*AVT*AVT*AVT 

4011 CONTINUE 
C 

DO 4012 0=3,14 
JJ=568+J-3 

AVT=0.25* (T (6,o\ 16) -rT (7, J, 1 6) +T (6, J, 17) +T (7 , J, 17) ) 
T4WALL(JJ)=CONSRA»AVT*AVT*AVT*AVT 

4012 CONTINUE 

DO 4020 1=1,579 
RWALL(I)=0.0 
DO 4020 J=l,579 

RWALL ( I ) =RWALL ( I ) +VFMXC ( I , J) «T4 WALL ( J) 

4020 CONTINUE 
RETURN 
END 



SUBROUTINE GLOBE 



00463700 

00463800 

00463900 

00464000 

00464100 

00464200 

00464300 

00464400 

00464500 

00464600 

00464700 

00464800 

00464900 

00465000 

00465100 

00465200 

00465300 

00465400 

00465500 

00465600 

00465700 

00465800 

00465900 

00466000 

00466100 

•00466200 

C0466300 

•00466400 



THIS SUBROUTINE CALCULATES THE GLOBAL PRESSURE CORRECTION, 
WHEREBY THE PRESSURE MATRIX IS UPDATED. 

VARIABLES USED ARE; 

SUMT 
SUMPT 
SUMPET 
UGRT 
PCORR 



•00466500 
•00466600 
•00466700 

SUM OF TEMPERATURES ^00466800 

SUM OF PRESSURE OVER TEMPERATURE •00466900 

SUM OF EQUILIBRIUM PRESSURE OVER TEMP*00467000 

CONSTANT •00467100 

PRESSURE CORRECTION ^00467200 

•••••00467300 

C0MM0N/3L7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 00467400 

S ,NIP2,NJ?2,NKP2,NA,NAP1,NAM1,NB,NBP1,NBM1,KRUN,NCHIP,NJRA,NWRP 00467500 

COMMON/SL16/ CONSTl , CONST2, CONST3, CONST4 , CONST6, NT, UO, H, UGRT, BUOY, 004 67600 
4 CPO, PRT, CONDO , VISO, RKOO , HR, TR, TA, DTEMP, TWRITE, TTAPE,TMAX, GC, RAIR004 67700 
COMMON/BL32/ T (22, 16, 32) , R (22, 16, 32) , P (22, 16, 32 ) 00467800 

4 ,C(22,16,32),U(22,16,32),V(22,16,32),W(22,16,32) 00467900 

COMMON/5L34/ HEIGHT (22, 16, 32) , REQ (22, 16, 32) , 00468000 

4 SMP(22,16,32),SMPP(22,16,32),PP(22,16,32), 00468100 

4 DU(22,16,32),DV(22,16,32),DW(22,16,32) 00468200 

COMMON/3L37/ V! S ( 22 , 1 6, 32 ) , CCND (22, 16,32) , NOD (22, 16, 32) , RWALL (579) 004 68300 
4 



,C?M(22, 16,32) ,HSZ (3,2) ,NHSZ (22, 16, 32) , RESORM( 93) 


00468400 

00468500 


SUMT=0. 


00468600 


SUMPT=C . 


00468700 


SUMPET=C . 


00468800 


DO 37C :=2,NI 


00468900 


DO 37C J=2,XJ 


00469000 


DO 37C K=2,NK 


00469100 


IF (NODC, J,K) .EQ.l) GOTO 37C 


00469200 


DXI=XLC,J,K, 0,0,0) 


00469300 


DYJ=YLC,J,K, 0,0,0) 


00469400 


DZK=ZLC, J, K, 0, 0, 0) 


00469500 


VOL=DX:*DYJ*DZK 


00469600 


SUMT=SUMT-1 . /T ( I , J, K) *VOL 


00469700 


SUMPT=SUXPT^-P (T, J,K)/T(I, J,:<) *VOL 


00469800 


SUMPET=3UM?ET-REQ (I, J,K) * ( 1 . /1 . 0-1 . /T ( I , J, K) ) •VOL 


00469900 


CONTINUE 


00470000 


S UMPE T= SUMP ET / U CRT 


00470100 


?CORR=(SUM?ET-5UMPT) /SUMT 


00470200 


?CORRN=?CORR 


00470300 

00470400 
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371 :=i,NIPl 
3C 371 J=1,NJP1 
DO 371 K=i,NKPl 
? ( I , J, K) =? ( I , J, K) +PCORRN 
371 CONTIK'JZ 

RETURN 

END 



SUBROUTINE SOLCON 



C047C500 

C047C6CC 

CC47C7C0 

0047C8C0 

0047C9C0 

A "1 ^ r\ f\ 

I \j 

> r\ f\ 
- SJ 

? 3 

004713CC 

C04714C0 

C04715CC 

CC471600 

=■00471700 

00471800 

•00471900 

00472000 



COMMON/3L7/NI,NIPl,NIMl,NJ,NJPl,NJMl,NK,NKPl,NKMl 
& ,NIP2,NJP2, NKP2,NA,NAP1,NAM1,NB,NBP1, NBM1,KRUN,NCHIP,NJRA,NWRP wum 
COMMON/3112/ NWRITE,NTAPE,NTMAXO,NTREAL,TIME, SORSUM, ITER 00472200 

COMMON/5L16/ CONSTl , CONST2, CONST3 , CONST4 , CONST6 , NT, UO , H, UGRT, BUOY, 00472300 
& CP0,?RT, CONDO, VIS0,RHO0, HR, TR,TA,DTEMP,TWRITE,TTAPE,TMAX,GC,RAIR004 72400 
CCMMON/3122/ICHPB(lC) ,NCHPI (10) , JCHPB(IO) ,NCHPJ(10) ,KCHPB(10) , 00472500 

& NCHPK(IO) ,TCHP(10) ,CPS (10) , CONS (10) ,WFAN(10) 004 72600 

COMMON/3L37/ VIS (22 , 16, 32 ) , COND (22, 16,32) ,NOD (22, 16,32) ,RWALL(579) 00472700 



405 

402 



,CPM (22, 16,32) ,HS2 (3,2) ,NHS2 (22, 16,32) ,RESORM(93) 

DO 402 N=1,NCHIP 
I3=ICH?3(N) 

:E=IB*NCHPI (N)-i 
J3=JCH?3(N) 

JE=JB^NCHPJ(N)-i 
K3=KCHr3(N) 

KE=KB*NCHPK(N)-1 
DO 405 :=IB,IE-1 
DO 405 J=JB,JE-1 
DO 405 :<=KB,KE-1 
COND ( : , T, K) =COND0 *CONS (N) 

CPMC, J,K)=CPS (N) 

NOD (I ~ "^ ) = 1 

:? (jUnj) cond(I,\'jpi,k)=cond(I,nj,k) 

;? (I.IQ.2) CONDd, J,X)=COND(2,J,K) 

:? (I.Ii.N’I) CCND(NIP1, J,K)=COND(NI, J,K) 

;? C.ZQ.2.AND. J.EQ.NJ) COND.( 1 , J+1 , K) =COND (2, J, K) 

:? c .IQ.N: .AN’D. J.EQ.NJ) COND(NIPl, Jrl,K)=COND(NI, J,K) 
IQ . KJ) CPy. ( I , N JP 1 , X ) =CPM ( I , NJ, X) 

IQ. 2) C?M(1, J-,X)=CPM(2, J,X) 

IQ.NI) C?M(NIP1, J,K)=CPM(NI, J,X) 

IQ . 2 . AND . J . IS . N J) CPM ( 1 , 1 , X)'=CPM (2 , J, X) 

IQ.N: .and. J.EQ.NJ) C?.M(NIP1, J-^1,X)=CPM(NI, J.X) 



:? c 
:e c 
: r c 
:? c 

:CNTINUE 

RETURN 

END 



SUBROUTINE PTRACK 



00472800 

00472900 

00473000 

00473100 

00473200 

00473300 

00473400 

00473500 

00473600 

00473700 

00473800 

00473900 

00474000 

00474100 

00474200 

00474300 

00474400 

00474500 

00474600 

00474700 

wv*; / C w w 

00474900 

00475000 

00475100 

^^u47w^ww 

wV,*! / wwww 

00475400 
OC475500 
00475600 
00475700 
00475S00 
00475900 
•00476000 
00476100 
•00476200 
0476300 



COMMON/3114 /HCOEF, TINT, CNT,ABTURB,BTURB,VISL,VISMAX,QCORRT, ?M1,?M2C 
COMMON/3116/ CONSTl, C0NST2, CONST3 , CONST4 , CONST6 , NT, UO , H, UGRT, BUOY, 004 7640 
& C?0,?RT,CCNDC,VIS0,RHOC,HR, TR,TA,DT£MP, TWRITE, TTAPE, UMAX, GO, RAIR004 7650 
COMMON/3132/ T (22 , 1 6, 32 ) , R (22 , 16, 32 ) , P (22 , 1 6, 32 ) 0047661 

& ,0(22, 16,32) ,U(22, 16,32) ,V(22, 16, 32) ,W (22, 16, 32) 0 04 7670 

COMMON/3134/ HEIGHT (22, 16,32) ,REQ(22, 16,32) , 0047680 

& SMP (22, 16, 32) , SMPP (22, 16,32) ,P? (22,16, 32) , 0047691 

& DU (22, 16,32) ,DV(22, 16, 32) ,DW(22, 16, 32) 004 770C 

COMMON/3139/A1EW, PCURVE , CONSRA, PCURMl , PSOUTH, QCORR, PERROR 0047711 

0047721 
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cc 

cc 

cc 

cc 

cc 



' THE FOLLOWING PRESSURE TEST IS A TEMPORARY MEASURE TO MODIFY THE 
HEAT INPUT TO FORCE THE CALCULATED PRESSURE TO AGREE WITH THE 
EXPERIMENTAL PRESSURE. IT WILL BE USED UNTIL ACCURATE .HEAT INPUT 
' IS RECEIVED. 

?SOUTH=? (10,9,16) *CONSTl+REQ (10, 9, 16) 

PERROR= (PCURVE-PSOUTH) /PCURVE 
QCORR=l .O^PERROR- (PSOUTH-PMl) /PCURVE 

QCORR=l .O-rPERROR- (PSOUTH-PMl) /PCURVE+ (PSOUTH-PMl) / ( PCURVE -PCURMl) 
& (PCURVE-PMl) /PCURVE 
QCORRT=QCORRT 'QCORR 
PCURM1=PCURVE 
PMl=PSOUTH 

RETURN 

END 



00477300 

00477400 

00477500 

00477600 

C0477700 

00477800 

00477900 

00478000 

'00478100 

C0478200 

00478300 

00478400 

00478500 

00478600 

00478700 

00478800 

00478900 

00479000 

00479100 

00479200 



**«*««*itit*«*»»*»«**»««*«««*««**«««**««***«**«K****«it«**«***««***«««QQ^’y^^00 

SUBROUTINE TCP 00479400 

******««««-*««***««********«*«****************«'*«*-*«i(«*«it***********00^705OO 

00479600 



THIS SUBROUTINE CALCULATES THE TEMPERATURE AT THE TERMOCOUPLE 
POSITIONS. 



'•00479700 

•00479800 

•00479900 



00480000 

COMMON/R4/XC(93) , YC(93) ,ZC(93) ,XS(93) ,YS(93) ,ZS(93) , 00480100 

£ DXXC(93) ,DYYC (93) , DZZC ( 93 ) , DXXS (93) ,DYYS(93) ,DZZS (93) 00480200 

COMMON/BL16/ CONSTl , CONST2, CONST3 , CONST4 , CONST6, NT, UO , H, UGRT, BUOY, 00480300 
£ CPO , PRT, CONDO , VISO, RHOO , HR, TR, TA, DTEMP, TWRITE, TTAPE, TMAX, GC, RAIR00480400 



COMMON/3L32/ T (22 , 16, 32) , R (22 , 16, 32) , P (22 , 16, 32) 

£ , C (22, 16,32) ,U (22, 16,32) ,V (22, 16,32) ,W (22, 16,32) 

COMMON/3L38/NTHCO,CX(12) ,CY(12) , CZ ( 12) , NTH ( 12, 3) , TCOUP ( 12) 

DO 5100 N=i,NTIICO 
II=NTH(N, 1) 

JJ=NTH(N,2) 

KK=NTH(N,3) 

VOL=ABS ( (XC (I r H)-XC(II) ) • (YC (JJ+D-YC(JJ) ) * (ZC(KK-l)-ZC (KK) ) ) 
TCOUP (N)=0 . 

DO 5101 I = II, 1 1 fl 
iii=:i-::-i-i 
DO 5101 U=JU,JU^i 

DO 5101 ;<=KX,KK^1 
KKK=KK-KKt1-k 

WVOL=ABS( (XC( : )-CX(N) ) • (YC(J)-CY(N) ) • (ZC(K)-CZ (N) ) ) /VOL 
TCOUP (N)=TCOUP.(N) +WVOL^T ( II I, JJJ, KKK) 

5101 CONTINUE 

TCOUP (N)=TCOUP (N) •TR-273.18 

5100 CONTINUE 

RETURN 

END 



SUBROUTINE OUT(NN) 



00480500 

00480600 

00480700 

00480800 

00480900 

00481000 

00481100 

00481200 

00481300 

00481400 

00481500 

00481600 

00481700 

00481800 

C04819CC 

00482000 

00482100 

00482200 

00482300 

00482400 

00482500 

00482600 

00482700 

00482800 

00482900 

00483000 

00483100 

C04832C0 

00483300 

00483400 

•00483500 



00483600 

..................................................00483700 

COMMON/3L1/DX,DY,DZ,VOL,DTIME,VOLDT,THOT,TCOCL,?:,Q,QR 00483800 

C0MM0N/3L7/NI,NIP1,NIM1,NJ,NJP1,NJM1,NK,NKP1,NKM1 00483900 

1 ,NIP2,NJP2,NKP2,NA, NAP1,NAM1,N3,NBP1,N3M1,XRUN,NCHIP,NJRA,NWRP 00484000 
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o o o o 



C0MM0N/BL12/ NWRITE, N TAPE, NTMAXO , NTREAL, TIME, SORSUM, ITER 004 84100 

COMMON/BL14 /HCOEF, TINE, CNT,ABTURB,BTURB,VISL, VI SMAX,QCORRT,PM1,PM2004 84200 
COMMON/BL16/ CONSTl , C0NST2, CONST3 , CONST4 , CONST6 , NT, UO , H, UGRT, BUOY, 00484300 
& CPO,PRT,CONDO, VIS0,RHO0,HR,TR,TA,DTEMP,TWRITE,TTAPE,TMAX,GC,RAIR00484400 
COMMON/BL32/ T (22 , 16, 32 ) , R (22 , 1 6, 32 ) , P (22 , 16, 32) 00484500 

& ,C (22, 16,32) ,U(22, 16, 32) , V (22, 16 , 32) , W (22, 16, 32 ) 00484600 

COMMON/BL34/ HEIGHT(22, 16,32) ,REQ(22, 16,32) , 00484700 

& SMP(22, 16,32) ,SMPP (22, 16, 32) , PP (22, 16, 32) , 00484800 

& DU (22, 16,32) ,DV(22,16,32) ,DW(22, 16,32) 00484900 

COMMON /BL3 6 ZAP (22,16, 32) , AE (22, 16, 32) , AW (22, 16, 32) , AN (22, 16,32), 00484 910 

& AS (22, 16, 32) , At (22, 16,32) , AB (22 , 16, 32 ) , 00484920 

& SP (22, 16,32) ,SU (22, 16,32) ,RI (22, 16,32) 00484930 

COMMON/BL37Z VIS (22 , 16, 32) , COND (22, 16 , 32 ) , NOD (22, 16, 32) , RWALL (579) 00485000 



& ,CPM(22, 16,32) ,HSZ (3,2) ,NHSZ (22, 16, 32) , RESORM( 93) 

COMMON/BL38/NTHCO,CX(12) ,CY (12) , CZ ( 12 ) , NTH ( 12 , 3 ) ,TCOUP (12) 
COMMON ZBL3 9/ ALE W, PCURVE, CONSRA, PCURMl , PSOUTH, QCORR, PERROR 
XTIME=TIME*H/U0 



00485100 

00485200 

00485300 

00485400 



nnn= jnini. (xtime) 
nnx=nnn+l 

IF( NN .EQ. 1) THEN 
QRR=60. *60. Z3. 4 12/1000. »QR 

WRITE (6,500) XTIME, NTREAL , TIME, ITER , RESORM ( ITER) , SORSUM, QRR 
500 FORMATdX, ' TIME=' , F7 . 3 , ' S',1X, ' NTREAL=' , 1 9, IX, 

& 'TIME=' , F7 .2, ' <0>' , IX, ' ITER=' , 12, IX, 'SOURCE=' , 

& F9.6, IX, 'S0RSUM=',F9.6,1X, ' QR(KW) = ',F10.4) 

QKW = ( (60. *60. )/ (3 .412*1000.) ) * Q 
PRINT * 

PRINT *, ' PCURVE PSOUTH PERROR 

&CRR QCORRT Q(KW) ' 

PRINT *, PCURVE, PSOUTH, PERROR, QCORR, QCORRT, QKW 
PRINT * 

ELSE IF( NN .EQ. 2 ) THEN 
PRINT * 

PRINT TEMPERATURES AT THERMOCOUPLE POSITION IN (O' 

WRITE (6,*) (TCOUP (N) ,N=l,NTHCO) 

PRINT • 

PRINT * 



ELSE 

c write (nnn, •) ' 

c write (nnn, •) ' noae» 

c write (nr.x, •) ' time=' 

c write (nr.x, *) ' r.oae* 

DO 5C2 l=l,r.kol 
K=L 

DO 502 m=i,n:?i 



xtirte, ' seconds' 
u 

xtir.e, ' seconds' 

temperature 



V w' 

pressure' 



:=M 

WRITE(6,5C4) I,K 

504 FORMAT(Z, 2X, ' 1=' , 12, 5X, 'K=' , 12, /, lOX, ' T NOD' , 3X, ' R (GM/C . C . ) ' 
& 'U (CM/ SEC) ' , 2X, 'V (CM/SEC) ' , 2X, 'W (CM/SEC) ' , 'P (ATM) ' , 5X, ' SMP' 
& ' VIS (SEC/CM-CM) ', 3X, 'COND (SEC/CM-CM) ', ' XSMP',/) 

513 DO 503 J=1,NJP1 
C XTEMP=TC, J,K) /CONST3-273.16 

XTEMP=TC, J,K) 

XR=R(I, J,K) *RHOO/2.2C48 * 1000 . * (0 . 0328) * - 3 
XR=R(I, J,K) 

XU=U (I, J, K) *CONST6 
XV=V(I, J,K) *CONST6 
XW=W(I, J,K) *CONST6 

XP= (P C, J, K) * CONST! ‘REQd, J,:<) *PINT) 

XP=PC, J,K) 

XU=UC, J,K) 

XV=VC, J,K) 

XW=W(I, J,K*1) 

CC XVIS=VISC, J, K) *RHOC'C?0*H*U0*l .48814 



00485500 

00485600 

00485610 

00485700 

00485800 

00485900 

00486000 

00486100 

00486200 

00486300 

Q00486400 

00486500 

00486600 

00486700 

00486800 

00486900 

00487000 

00487100 

00487200 

00487300 

00487400 

00487500 

00487600 



00487800 
00487900 
00488000 
00488100 
00488200 
,2X, 00488300 
,5X, 00488400 
00488500 
00488600 
00488700 
00488800 
00488900 
00489000 
00489100 
00489200 
00489300 
00489400 
00489500 
00489600 
00489700 
00489800 
00489900 
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C XCOND=COND(I, J,K) *RHOO*CPO*H*UO*1 .48814 
XVIS=V:S(I, J,K)/VISO 
XCOND=COND(I, J,K) /VISO 

xsmp=r: (I. j,k) 

3DYY=: . /FLOAT (NsJMl-2) 

?Z =SQRT(U(I, J,K) **2+Va, J,K) **2+W(I, J,K) **2) *DDYY/COND ( I , J, K) 
WRITE (r.nn, 555 ) i, j, k, xu, xv, xw 

555 format ( ' node ( ' , 313, ' ) ' , 3el2 .4 ) 
write (r.nx, 556) i, j, k, xtemp, xp 

556 format ( ' node ( ' , 313, ' ) ' , 2 (2x, el2 . 4 ) ) 

503 CONTINUE 

502 CONTINUE 

WRITE (6, M 'THE TIME WHEN THE DATA WAS STORED ON DISK IS:', 

& XTIME 
close (nnn) 
close (nnx) 

END IF 

RETURN 

END 



30490000 

C04901C0 

30490200 

00490300 

00490400 

00490500 

00490600 



00490900 

00491000 



00487700 

00491100 

00491200 

00491300 
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